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Summary 



The theory of Grobner Bases originated in the work of Buchberger [11] and is now con- 
sidered to be one of the most important and useful areas of symbolic computation. A 
great deal of effort has been put into improving Buchberger's algorithm for computing a 
Grobner Basis, and indeed in finding alternative methods of computing Grobner Bases. 
Two of these methods include the Grobner Walk method [1] and the computation of 
Involutive Bases [58]. 

By the mid 1980's, Buchberger's work had been generalised for noncommutative poly- 
nomial rings by Bergman [8] and Mora [45]. This thesis provides the corresponding 
generalisation for Involutive Bases and (to a lesser extent) the Grobner Walk, with the 
main results being as follows. 

(1) Algorithms for several new noncommutative involutive divisions are given, including 
strong; weak; global and local divisions. 

(2) An algorithm for computing a noncommutative Involutive Basis is given. When used 
with one of the aforementioned involutive divisions, it is shown that this algorithm 
returns a noncommutative Grobner Basis on termination. 

(3) An algorithm for a noncommutative Grobner Walk is given, in the case of conversion 
between two harmonious monomial orderings. It is shown that this algorithm gener- 
alises to give an algorithm for performing a noncommutative Involutive Walk, again 
in the case of conversion between two harmonious monomial orderings. 

(4) Two new properties of commutative involutive divisions are introduced (stability and 
extendibility) , respectively ensuring the termination of the Involutive Basis algorithm 
and the applicability (under certain conditions) of homogeneous methods of comput- 
ing Involutive Bases. 

Source code for an initial implementation of an algorithm to compute noncommutative 
Involutive Bases is provided in Appendix B. This source code, written using ANSI C and 
a series of libraries (AlgLib) provided by MSSRC [46], forms part of a larger collection of 
programs providing examples for the thesis, including implementations of the commutative 
and noncommutative Grobner Basis algorithms [11, 45]; the commutative Involutive Basis 
algorithm for the Pommaret and Janet involutive divisions [58]; and the Knuth-Bendix 
critical pairs completion algorithm for monoid rewrite systems [39]. 
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Introduction 



Background 

Grobner Bases 

During the second half of the twentieth century, one of the most successful applications of 
symbolic computation was in the development and application of Grobner Basis theory 
for finding special bases of ideals in commutative polynomials rings. Pioneered by Bruno 
Buchberger in 1965 [11], the theory allowed an answer to the question "What is the 
unique remainder when a polynomial is divided by a set of polynomials?". Buchberger's 
algorithm for computing a Grobner Basis was improved and refined over several decades 
[1, 10, 21, 29], aided by the development of powerful symbolic computation systems over 
the same period. Today there is an implementation of Buchberger's algorithm in virtually 
all general purpose symbolic computation systems, including Maple [55] and Mathematica 
[57], and many more specialised systems. 

What is a Grobner Basis? 

Consider the problem of finding the remainder when a number is divided by a set of 
numbers. If the dividing set contains just one number, then the problem only has one 
solution. For example, "5" is the only possible answer to the question "What is 20 -j- 4?" . 
If the dividing set contains more than one number however, there may be several solutions, 
as the division can potentially be performed in more than one way. 

Example. Consider a tank containing 21L of water. Given two empty jugs, one with 
a capacity of 2L and the other 5L, is it possible to empty the tank using just the jugs, 
assuming only full jugs of water may be removed from the tank? 
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Trying to empty the tank using the 2L jug only, we are able to remove 10 x 2 = 20L of 
water from the tank, and we are left with 1L of water in the tank. Repeating with the 
5L jug, we are again left with 1L of water in the tank. If we alternate between the jugs 
however (removing 2L of water followed by 5L followed by 2L and so on), the tank this 
time does become empty, because 21 = 2 + 5 + 2 + 5 + 2 + 5. 

The observation that we are left with a different volume of water in the tank dependent 
upon how we try to empty it corresponds to the idea that the remainder obtained when 
dividing the number 21 by the numbers 2 and 5 is dependent upon how the division is 
performed. 

This idea also applies when dividing polynomials by sets of polynomials — remainders 
here will also be dependent upon how the division is performed. However, if we divide 
a polynomial with respect to a set of polynomials that is a Grobner Basis, then we will 
always obtain the same remainder no matter how the division is performed. This fact, 
along with the fact that any set of polynomials can be transformed into an equivalent set 
of polynomials that is a Grobner Basis, provides the main ingredients of Grobner Basis 
theory. 

Remark. The 'Grobner Basis' for our water tank example would be just a 1L jug, 
allowing us to empty any tank containing nL of water (where n G N). 

Applications 

There are numerous applications of Grobner Bases in all branches of mathematics, com- 
puter science, physics and engineering [12]. Topics vary from geometric theorem proving 
to solving systems of polynomial equations, and from algebraic coding theory to the design 
of experiments in statistics. 
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Example. Let F := {x + y + z = 6, x 2 + y 2 + z 2 = 14, x 3 + y 3 + 2 3 = 36} be a set 
of polynomial equations. One way of solving this set for x, y and z is to compute a 
lexicographic Grobner Basis for F. This yields the set G := {x + y + z = G, y 2 + yz + z 2 — 
6y — 6z = — 11, z 3 — 6z 2 + llz = 6}, the final member of which is a univariate polynomial 
in z, a polynomial we can solve to deduce that z — 1, 2 or 3. Substituting back into the 
second member of G, when z = 1, we obtain the polynomial y 2 — by + 6 = 0, which enables 
us to deduce that y = 2 or 3; when z = 2, we obtain the polynomial y 2 — 4y + 3 = 0, 
which enables us to deduce that y = 1 or 3; and when z = 3, we obtain the polynomial 
y 2 — 3y + 2 = 0, which enables us to deduce that y = 1 or 2. Further substitution into 
x + y + z = 6 then enables us to deduce the value of x in each of the above cases, enabling 
us to give the following table of solutions for F. 



X 


3 2 3 1 2 1 


y 


2 3 13 12 


z 


1 1 2 2 3 3 



Involutive Bases 

As Grobner Bases became popular, researchers noticed a connection between Buchberger's 
ideas and ideas originating from the Janet-Riquier theory of Partial Differential Equations 
developed in the early 20th century (see for example [44]). This link was completed for 
commutative polynomial rings by Zharkov and Blinkov in the early 1990's [58] when they 
gave an algorithm to compute an Involutive Basis that provides an alternative way of 
computing a Grobner Basis. Early implementations of this algorithm (an elementary 
introduction to which can be found in [13]) compared favourably with the most advanced 
implementations of Buchberger's algorithm, with results in [25] showing the potential of 
the Involutive method in terms of efficiency 

What is an Involutive Basis? 

Given a Grobner Basis G, we know that the remainder obtained from dividing a polyno- 
mial with respect to G will always be the same no matter how the division is performed. 
With an Involutive Basis, the difference is that there is only one way for the division to 
be performed, so that unique remainders are also obtained uniquely. 

This effect is achieved through assigning a set of multiplicative variables to each polynomial 
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in an Involutive Basis if, imposing a restriction on how polynomials may be divided 
by H by only allowing any polynomial h £ H to be multiplied by its corresponding 
multiplicative variables. Popular schemes of assigning multiplicative variables include 
those based on the work of Janet [35], Thomas [52] and Pommaret [47]. 

Example. Consider the Janet Involutive Basis H := {xy — z, yz + 2x + z, 2x 2 + xz + 
z 2 , 2x 2 z + xz 2 + z 3 } with multiplicative variables as shown in the table below. 



Polynomial 


Janet Multiplicative Variables 


xy — z 


{x, y} 


yz + 2x + z 


{x,y,z} 


2x 2 + xz + z 2 


{x} 


2x 2 z + xz 2 + z 3 


{x,z} 



To illustrate that any polynomial may only be involutively divisible by at most one member 
of any Involutive Basis, we include the following two diagrams, showing which monomials 
are involutively divisible by H, and which are divisible by the corresponding Grobner 
Basis G := {xy — z, yz + 2x + z, 2x 2 + xz + z 2 }. 




Note that the irreducible monomials of both bases all appear in the set {1, x, y l , z l , xz*}, 
where i ^ 1; and that the cube, the 2 planes and the line shown in the right hand diagram 
do not overlap. 
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Noncommutative Bases 

There are certain types of noncommutative algebra to which methods for commutative 
Grobner Bases may be applied. Typically, these are algebras with generators {xi, . . . , x n } 
for which products XjXi with j > i may be rewritten as (xiXj+ other terms). For example, 
version 3-0-0 of Singular [31] (released in June 2005) allows the computation of Grobner 
Bases for G-algebras. 

To compute Grobner Bases for ideals in free associative algebras however, one must turn to 
the theory of noncommutative Grobner Bases. Based on the work of Bergman [8] and Mora 
[45], the theory answers the question "What is the remainder when a noncommutative 
polynomial is divided by a set of noncommutative polynomials?", and allows us to find 
Grdbner Bases for such algebras as path algebras [37]. 

The final piece of the jigsaw is to mirror the application of Zharkov and Blinkov's Involu- 
tive methods to the noncommutative case. This thesis provides the first extended attempt 
at accomplishing this task, improving the author's first basic algorithms for computing 
noncommutative Involutive Bases [20] and providing a full theoretical foundation for these 
algorithms. 

Structure and Principal Results 

This thesis can be broadly divided into two parts: Chapters 1 through 4 survey the 
building blocks required for the theory of noncommutative Involutive Bases; the remain- 
der of the thesis then describes this theory together with different ways of computing 
noncommutative Involutive Bases. 

Part 1 

Chapter 1 contains accounts of some necessary preliminaries for our studies - a review 
of both commutative and noncommutative polynomial rings; ideals; monomial orderings; 
and polynomial division. 

We survey the theory of commutative Grdbner Bases in Chapter 2, basing our account 
on many sources, but mainly on the books [7] and [22]. We present the theory from 
the viewpoint of S-polynomials (for example defining a Grobner Basis in terms of S- 
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polynomials), mainly because Buchberger's algorithm for computing a Grobner Basis 
deals predominantly with S-polynomials. Towards the end of the Chapter, we describe 
some of the theoretical improvements of Buchberger's algorithm, including the usage of 
selection strategies, optimal variable orderings and Logged Grobner Bases. 

The viewpoint of defining Grobner Bases in terms of S-polynomials continues in Chapter 
3, where we encounter the theory of noncommutative Grobner Bases. We discover that 
the theory is quite similar to that found in the previous chapter, apart from the definition 
of an S-polynomial and the fact that not all input bases will have finite Grobner Bases. 

In Chapter 4, we acquaint ourselves with the theory of commutative Involutive Bases. 
This is based on the work of Zharkov and Blinkov [58]; Gerdt and Blinkov [25, 26]; Gerdt 
[23, 24]; Seiler [50, 51]; and Apel [2, 3], with the notation and conventions taken from a 
combination of these papers. For example, notation for involutive cones and multiplicative 
variables is taken from [25] , and the definition of an involutive division and the algorithm 
for computing an Involutive Basis is taken from [50]. 

As for the content of Chapter 4, we introduce the Janet, Pommaret and Thomas divisions 
in Section 4.1; describe what is meant by a prolongation and autoreduction in Section 4.2; 
introduce the properties of continuity and constructivity in Section 4.3; give the Involutive 
Basis algorithm in Section 4.4; and describe some improvements to this algorithm in 
Section 4.5. In between all of this, we introduce two new properties of involutive divisions, 
stability and extendibility, that ensure (respectively) the termination of the Involutive 
Basis algorithm and the applicability (under certain conditions) of homogeneous methods 
of computing Involutive Bases. 

Part 2 

The main results of the thesis are contained in Chapter 5, where we introduce the theory 
of noncommutative Involutive Bases. In Section 5.1, we define two methods of performing 
noncommutative involutive reduction, the first of which (using thin divisors) allows the 
mirroring of theory from Chapter 4, and the second of which (using thick divisors) allows 
efficient computation of involutive remainders. We also define what is meant by a non- 
commutative involutive division, and give an algorithm for performing noncommutative 
involutive reduction. 

In Section 5.2, we generalise the notions of prolongation and autoreduction to the non- 
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commutative case, introducing two different types of prolongation (left and right) to 
reflect the fact that left and right multiplication are different operations in noncommuta- 
tive polynomial rings. These notions are then utilised in the algorithm for computing a 
noncommutative Involutive Basis, which we present in Section 5.3. 

In Section 5.4, we introduce two properties of noncommutative involutive divisions. Con- 
tinuity helps ensure that any Locally Involutive Basis is an Involutive Basis; conclusivity 
ensures that for any given input basis, a finite Involutive Basis will exist if and only if 
a finite Grobner Basis exists. A third property is also introduced for weak involutive 
divisions to ensure that any Locally Involutive Basis is a Grobner Basis (Involutive Bases 
with respect to strong involutive divisions are automatically Grobner Bases). 

Section 5.5 provides several involutive divisions for use with the noncommutative Involu- 
tive Basis algorithm, including two global divisions and ten local divisions. The properties 
of these divisions are analysed, with full proofs given that certain divisions satisfy certain 
properties. We also show that some divisions are naturally suited for efficient involutive 
reduction, and speculate on the existence of further involutive divisions. 

In Section 5.6, we briefly discuss the topic of the termination of the noncommutative 
Involutive Basis algorithm. In Section 5.7, we provide several examples showing how 
noncommutative Involutive Bases are computed, including examples demonstrating the 
computation of involutive complete rewrite systems for groups. Finally, in Section 5.8, we 
discuss improvements to the noncommutative Involutive Basis algorithm, including how 
to introduce efficient involutive reduction and Logged Involutive Bases. 

Chapter 6 introduces and generalises the theory of the Grobner Walk, where a Grobner 
Basis with respect to one monomial ordering may be computed from a Grobner Basis 
with respect to another monomial ordering. In Section 6.1, we summarise the theory of 
the commutative Grobner Walk (based on the papers [1] and [18]), and we describe a 
generalisation of the theory to the Involutive case due to Golubitsky [30]. In Section 6.2, 
we then go on to partially generalise the theory to the noncommutative case, giving algo- 
rithms to perform both Grobner and Involutive Walks between two harmonious monomial 
orderings. 

After some concluding remarks in Chapter 7, we provide full proofs for two Propositions 
from Section 5.5 in Appendix A. Appendix B then provides ANSI C source code for an 
initial implementation of the noncommutative Involutive Basis algorithm, together with 



a brief description of the AlgLib libraries used in conjunction with the code. Finally, 
Appendix C, we provide sample sessions showing the program given in Appendix B 
action. 



Chapter 1 



Preliminaries 



In this chapter, we will set out some algebraic concepts that will be used extensively in 
the following chapters. In particular, we will introduce polynomial rings and ideals, the 
main objects of study in this thesis. 

1.1 Rings and Ideals 
1.1.1 Groups and Rings 

Definition 1.1.1 A binary operation on a set S is a function * : S x S —* S such that 
associated with each ordered pair (a, b) of elements of S is a uniquely defined element 
(a * b) G S. 

Definition 1.1.2 A group is a set G, with a binary operation *, such that the following 
conditions hold. 

(a) #1 * g 2 G G for all g\, g 2 G G (closure). 

(b) gi * (g 2 * #3) = {91 * 92) * 93 for all g 1 , g 2 , g 3 G G (associativity). 

(c) There exists an element e G G such that for all g G G, e * g = g = g * e (identity). 

(d) For each element g G G, there exists an element g~ l G G such that g~ l *g = e = g*g~ x 
(inverses) . 
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Definition 1.1.3 A group G is abelian if the binary operation of the group is commuta- 
tive, that is gi * g 2 = 92 * 9i for all gi, g 2 G G. The operation in an abelian group is often 
written additively, as g\ + g 2 -, with the inverse of g written — g. 

Definition 1.1.4 A rng is a set R with two binary operations + and x , known as addition 
and multiplication, such that addition has an identity element 0, called zero, and the 
following axioms hold. 

(a) R is an abelian group with respect to addition. 

(b) (ri x r 2 ) x r 3 = r! x (r 2 x r 3 ) for all ri,r 2 ,r 3 G R (multiplication is associative). 

(c) 7"i x (r 2 + r 3 ) = ?"! x r 2 + ?"! x r 3 and (r x +r 2 ) xr 3 = rixr 3 + r 2 xr 3 for all r 1; r 2 , r 3 G i? 
(the distributive laws hold). 

Definition 1.1.5 A rng R is a rinj if it contains a unique element 1, called the unit 
element, such that 1^0 and lxr = r = rxl for all r E R. 

Definition 1.1.6 A ring R is commutative if multiplication (as well as addition) is com- 
mutative, that is ri x r 2 = r 2 x r\ for all ri, r 2 G -R. 

Definition 1.1.7 A ring i? is noncommutative if ri x r 2 ^ r 2 x ri for some ri,r 2 G i?. 

Definition 1.1.8 If S is a subset of a ring i? that is itself a ring under the same binary 
operations of addition and multiplication, then 5* is a subring of R. 

Definition 1.1.9 A ring R is a division ring if every nonzero element r G i? has a 
multiplicative inverse r -1 . A /ieW is a commutative division ring. 

1.1.2 Polynomial Rings 
Commutative Polynomial Rings 

A nontrivial polynomial p in n (commuting) variables x±, . . . ,x n is usually written as a 



where k is a positive integer and each summand is a term made up of a nonzero coefficient 
a,- from some ring R and a monomial which the exponents e+, . . . , e" are 



sum 



A' 




(1.1) 
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nonnegative integers. It is clear that each monomial may be represented in terms of its 
exponents only, as a multidegree = (ej, ef , . . . , e"), so that a monomial may be written 
as a multiset x 6i over the set {xi, . . . , x n }. This leads to a more elegant representation of 
a nontrivial polynomial, 

p = a « x °' (1-2) 

oeN n 

and we may think of such a polynomial as a function / from the set of all multidegrees 
N™ to the ring R with finite support (only a finite number of nonzero images). 

Example 1.1.10 Let p = 4x 2 y + 2x + || be a polynomial in two variables x and y with 
coefficients in Q. This polynomial can be represented by the function / : N 2 — > Q given 
by 



/(«) 



4, a = (2,1) 

2, a = (1,0) 

i, a = (0,0) 

otherwise. 



Remark 1.1.11 The zero polynomial p = is represented by the function f{a) = Or for 
all possible a. The constant polynomial p — 1 is represented by the function f(a) = 1r 
for a = (0, 0, . . . , 0), and f(a) = Or otherwise. 

Remark 1.1.12 The product mi x m 2 of two monomials m^mj with corresponding 
multidegrees ei,e2 G N n is the monomial corresponding to the multidegree e\ + e<i- For 
example, if mi = x\x 2 x\ and m 2 = X\X 2 x\ (so that t\ = (2, 1, 3) and e 2 = (1, 1, 2)), then 
mi x m 2 = x\x\x\ as t\ + e 2 = (3, 2, 5). 

Definition 1.1.13 Let R[xi,x 2 , . . . ,x n ] denote the set of all functions / : N n — > R such 
that each function / represents a polynomial in n variables x±, . . . ,x n with coefficients 
over a ring R. Given two functions f,g£ R[xi,x 2 , ■ ■ ■ ,x n ], let us define the functions 
/ + g and / x g as follows. 

(f + g)(a) = f(a) + g(a) for all a G N n ; 

(fxg)(a)= f(P)*9(l) for all a GN™. 

/3+7=a 

Then the set R[xi,x 2 , . . . , x n ] becomes a ring, known as the polynomial ring in n variables 
over R, with the functions corresponding to the zero and constant polynomials being the 
respective zero and unit elements of the ring. 
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Remark 1.1.14 In R[xi, x 2 , ■ ■ ■ , x n ], R is known as the coefficient ring. 
Noncommutative Polynomial Rings 

A nontrivial polynomial p in n noncommuting variables Xi, . . . ,x n is usually written as a 
sum 

k 

p = S ^a i w h (1.3) 

i=i 

where k is a positive integer and each summand is a term made up of a nonzero co- 
efficient at from some ring R and a monomial Wi that is a word over the alphabet 
X = {xi, X2, ■ ■ ■ , x n }. We may think of a noncommutative polynomial as a function 
/ from the set of all words X* to the ring R. 

Remark 1.1.15 The zero polynomial p = is the polynomial Ore, where e is the empty 
word in X*. Similarly Ire is the constant polynomial p — 1. 

Remark 1.1.16 The product w\ x u? 2 of two monomials wi,W2 G X* is given by con- 
catenation. For example, if X = {xi,X2,x^}, w± = x\x% and w<i = x\x$, then w\ x w 2 = 

Definition 1.1.17 Let R(xi, X2, ■ ■ ■ , x n ) denote the set of all functions / : X* — > R 
such that each function / represents a polynomial in n noncommuting variables with 
coefficients over a ring R. Given two functions /, g G R(x\, x 2 , . . . , x n ), let us define the 
functions / + g and / x g as follows. 

(/ + 0) W = /M + for all «; G X*; 

{fxg){w)= Yl f( u ) x 9(v) forall^GX*. 

uxv=w 

Then the set R(x\,X2, ■ ■ ■ , £ n ) becomes a ring, known as the noncommutative polynomial 
ring in n variables over R, with the functions corresponding to the zero and constant 
polynomials being the respective zero and unit elements of the ring. 

1.1.3 Ideals 

Definition 1.1.18 Let 1Z be an arbitrary commutative ring. An ideal J in 1Z is a subring 
of 71 satisfying the following additional condition: jr G J for all j G J, r G 1Z. 
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Remark 1.1.19 In the above definition, if TZ is a polynomial ring in n variables over 
a ring R (TZ = R[x\, . . . ,x n ]), the ideal J is a polynomial ideal. We will only consider 
polynomial ideals in this thesis. 

Definition 1.1.20 Let TZ be an arbitrary noncommutative ring. 

• A left (right) ideal J in TZ is a subring of TZ satisfying the following additional 
condition: rj £ J (jr £ J) for all j E J, r E TZ. 

• A two-sided ideal J in TZ is a subring of 7£ satisfying the following additional condi- 
tion: rijr 2 £ J for all j £ J, r l5 r 2 £ 

Remark 1.1.21 Unless otherwise stated, all noncommutative ideals considered in this 
thesis will be two-sided ideals. 

Definition 1.1.22 A set of polynomials P = {pi,P2, ■ ■ ■ ,Pm} is a basis for an ideal J of 
a noncommutative polynomial ring TZ if every polynomial q £ J can be written as 

fe 



We say that P generates J, written J = (P). 

Remark 1.1.23 The above definition has an obvious generalisation for left and right 
ideals of noncommutative polynomial rings and for ideals of commutative polynomial 
rings. 

Example 1.1.24 Let TZ be the noncommutative polynomial ring Q(x, y), and let J = (P) 
be an ideal in TZ, where P := {x 2 y + yx — 2, yxy — x + 4y}. Consider the polynomial 
q := 2x 3 y + yx 2 y + 2xyx — 4x 2 y + x 3 — 2xy — 4x, and let us ask if q is a member of the ideal. 
To answer this question, we have to find out if there is an expression for q of the type 
shown in Equation (1.4). In this case, it turns out that q is indeed a member of the ideal 
(because q = 2x(x 2 y + yx — 2) + (x 2 y + yx — 2)xy — x 2 (yxy — x + 4?/)), but how would we 
answer the question in general? This problem is known as the Ideal Membership Problem 
and is stated as follows. 




(1.4) 



i=l 



Definition 1.1.25 (The Ideal Membership Problem) Given an ideal J and a poly- 
nomial q, does q £ J? 
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As we shall see shortly, the Ideal Membership Problem can be solved by dividing a poly- 
nomial with respect to a Grobner Basis for the ideal J. But before we can discuss this, 
we must first introduce the notion of polynomial division, for which we require a fixed 
ordering on the monomials in any given polynomial. 

1.2 Monomial Orderings 

A monomial ordering is a bivariate function O which tells us which monomial is the larger 
of any two given monomials mi and m 2 . We will use the convention that O (mi, m 2 ) = 1 if 
and only if mi < m 2 , and 0(mi, m 2 ) = if and only if mi ^ m 2 . We can use a monomial 
ordering to order an arbitrary polynomial p by inducing an order on the terms of p from 
the order on the monomials associated with the terms. 

Definition 1.2.1 A monomial ordering O is admissible if the following conditions are 
satisfied. 

(a) 1 < m for all monomials 

(b) mi < m 2 =>■ m^mim r < m^m 2 m r for all monomials 1 mi,m2,me,m r . 

By convention, a polynomial is always written in descending order (with respect to a given 
monomial ordering), so that the leading term of the polynomial (with associated leading 
coefficient and leading monomial) always comes first. 

Remark 1.2.2 For an arbitrary polynomial p, we will use LT(p), LM(p) and LC(p) to 
denote the leading term, leading monomial and leading coefficient of p respectively. 

1.2.1 Commutative Monomial Orderings 

A monomial ordering usually requires an ordering on the variables in our chosen polyno- 
mial ring. Given such a ring R[x±, X2, ■ ■ ■ , x n ], we will assume this order to be X\ > x 2 > 
!> x n . 

We shall now consider the most frequently used monomial orderings, where throughout mi 
and m 2 will denote arbitrary monomials (with associated multidegrees e\ = (e\, e\ , . . . , e") 

^or a commutative monomial ordering, we can ignore the monomial m r . 
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and e 2 = (e 2 , e|, . . . , e 2 )), and deg(mj) will denote the total degree of the monomial m 8 
(for example deg(x 2 yz) = 4). All orderings considered will be admissible. 

The Lexicographical Ordering (Lex) 

Define m% < m 2 if e\ < e 2 for some 1 ^ % ^ n and e{ = e 2 for all 1 ^ j < %. In words, 
rrii < m 2 if the first variable with different exponents in mi and m 2 has lower exponent 
in mi. 

The Inverse Lexicographical Ordering (InvLex) 

Define mi < m 2 if e\ < e\ for some 1 ^ i ^ n and e{ = e\ for all i < j ^ n. In words, 
m i < m 2 if the last variable with different exponents in mi and m 2 has lower exponent 
in m\. 

The Degree Lexicographical Ordering (DegLex) 

Define mi < m 2 if deg^x) < deg(m 2 ) or if deg(m!) = deg(m 2 ) and mi < m 2 in the 
Lexicographic Ordering. 

Remark 1.2.3 The DegLex ordering is also known as the TLex ordering (T for total 
degree) . 

The Degree Inverse Lexicographical Ordering (DeglnvLex) 

Define mi < m 2 if deg(mi) < deg(m 2 ) or if deg(mi) = deg(m 2 ) and mi < m 2 in the 
Inverse Lexicographical Ordering. 

The Degree Reverse Lexicographical Ordering (DegRevLex) 

Define mi < m 2 if deg(m!) < deg(m 2 ) or if deg(m!) = deg(m 2 ) and mi < m 2 in the 
Reverse Lexicographical Ordering, where mi < m 2 if the last variable with different 
exponents in mi and m 2 has higher exponent in mi (e\ > e\ for some 1 ^ i ^ n and 
e{ = e 2 for all i < j ^ n). 

Remark 1.2.4 On its own, the Reverse Lexicographical Ordering (RevLex) is not ad- 
missible, as 1 > m for any monomial m/1. 



CHAPTER 1. PRELIMINARIES 



16 



Example 1.2.5 With x > y > z, consider the monomials mi := x 2 yz; m 2 '■— x 2 and 
m 3 := xyz 2 , with corresponding multidegrees e± = (2, 1, 1); e 2 = (2, 0, 0) and e 3 = (1, 1, 2). 
The following table shows the order placed on the monomials by the various monomial 
orderings defined above. The final column shows the order induced on the polynomial 
p := mi + ^2 + T»3 by the chosen monomial ordering. 



Monomial Ordering 


0(m 1 ,m 2 ) 


0(mi,m 3 ) 


0(m 2 ,m 3 ) 


V 


Lex 











x 2 yz + x 2 + xyz 2 


InvLex 





1 


1 


xyz 2 + x 2 yz + x 2 


DegLex 








1 


x 2 yz + xyz 2 + x 2 


DeglnvLex 





1 


1 


:n/z 2 + x 2 yz + x 2 


DegRevLex 








1 


x 2 |/2; + xyz 2 + a; 2 



1.2.2 Noncommutative Monomial Orderings 

In the noncommutative case, because we use words and not multidegrees to represent 
monomials, our definitions for the lexicographically based orderings will have to be adapted 
slightly. All other definitions and conventions will stay the same. 

The Lexicographic Ordering (Lex) 

Define mi < m 2 if, working left-to-right, the first (say z-th) letter on which mi and m 2 
differ is such that the z-th letter of mi is lexicographically less than the i-th letter of m 2 
in the variable ordering. Note: this ordering is not admissible (counterexample: if x > y 
is the variable ordering, then x < xy but x 2 > xyx). 

Remark 1.2.6 When comparing two monomials mi and m 2 such that mi is a proper 
prefix of m 2 (for example mi := x and m 2 := xy as in the above counterexample), a 
problem arises with the above definition in that we eventually run out of letters in the 
shorter word to compare with (in the example, having seen that the first letter of both 
monomials match, what do we compare the second letter of m 2 with?). One answer is to 
introduce a padding symbol $ to pad mi on the right to make sure it is the same length 
as m 2 , with the convention that any letter is greater than the padding symbol (so that 
m i < m 2)- The padding symbol will not explicitly appear anywhere in the remainder of 
this thesis, but we will bear in mind that it can be introduced to deal with situations 
where prefixes and suffixes of monomials are involved. 
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Remark 1.2.7 The lexicographic ordering is also known as the dictionary ordering since 
the words in a dictionary (such as the Oxford English Dictionary) are ordered using the 
lexicographic ordering with variable (or alphabetical) ordering a < b < c < ■ ■ ■ . Note 
however that while a dictionary orders words in increasing order, we will write polynomials 
in decreasing order. 

The Inverse Lexicographical Ordering (InvLex) 

Define mi < m 2 if, working left-to-right, the first (say i-th) letter on which mi and wi2 
differ is such that the i-th letter of mi is lexicographically greater than the i-th letter of 
m 2 . Note: this ordering (like Lex) is not admissible (counterexample: if x > y is the 
variable ordering, then xy < x but xyx > x 2 ). 

The Degree Reverse Lexicographical Ordering (DegRevLex) 

Define mi < m 2 if deg(mi) < deg(m 2 ) or if deg(mi) = deg(m 2 ) and mi < m 2 in the 
Reverse Lexicographical Ordering, where mi < m 2 if, working in reverse, or from right- 
to-left, the first (say i-th) letter on which m x and m 2 differ is such that the i-th letter of 
m x is lexicographically greater than the i-th letter of m 2 . 

Example 1.2.8 With x > y > z, consider the noncommutative monomials m x := zxyx; 
m 2 := xzx and := y 2 zx. The following table shows the order placed on the monomials 
by various noncommutative monomial orderings. As before, the final column shows the 
order induced on the polynomial p := m\ + m 2 + by the chosen monomial ordering. 



Monomial Ordering 


0(mi,m 2 ) 


0(mi,m 3 ) 


0(m 2 ,m 3 ) 


V 


Lex 


1 


1 





xzx + y 2 zx + zxyx 


InvLex 








1 


zxyx + y 2 zx + xzx 


DegLex 





1 


1 


y 2 zx + zxyx + xzx 


DeglnvLex 








1 


zxyx + y 2 zx + xzx 


DegRevLex 





1 


1 


y 2 zx + zxyx + xzx 



1.2.3 Polynomial Division 

Definition 1.2.9 Let 1Z be a polynomial ring, and let O be an arbitrary admissible 
monomial ordering. Given two nonzero polynomials pi, p 2 e 1Z, we say that p\ divides 
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p 2 (written p\ \p 2 ) if the lead monomial of pi divides some monomial m (with coefficient 
c) in p 2 . For a commutative polynomial ring, this means that m = LM(pi)m' for some 
monomial m'; for a noncommutative polynomial ring, this means that m = m£LM(pi)m r 
for some monomials and m r (LM(pi) is a subword of m). 

To perform the division, we take away an appropriate multiple of p± from p 2 in order to 
cancel off LT(j»i) with the term involving m in p 2 . In the commutative case, we do 

p 2 - (cLCQ^-^pim'; 

in the noncommutative case, we do 

p 2 - {d,C(p 1 )~ 1 )m e .p x m r . 

It is clear that the coefficient rings of our polynomial rings have to be division rings in 
order for the above expressions to be valid, and so we make the following assumption 
about the polynomial rings we will encounter in the remainder of this thesis. 

Remark 1.2.10 From now on, all coefficient rings of polynomial rings will be fields unless 
otherwise stated. 

Example 1.2.11 Let p\ := 5z 2 x + 2y 2 + x + 4 and p 2 := 3xyxz 2 x 3 + 2x 2 be two 
DegLex ordered polynomials over the noncommutative polynomial ring Q(x,y,z). Be- 
cause LM(p 2 ) = xyx{z 2 x)x 2 , it is clear that p\ \ p 2 , with the quotient and the remainder 
of the division being 

q := (|) xyx(5z 2 x + 2y 2 + x + 4)x 2 

and 

r := 3xyxz 2 x 3 + 2x 2 — (|) xyx(5z 2 x + 2y 2 + x + 4)x 2 

= 3xyxz 2 x 3 + 2x 2 — 3xyxz 2 x 3 — (|) xyxy 2 x 2 — (|) xyx A — (^) xyx 3 
= — (|) xyxy 2 x 2 — (|) xyx 4 — (y) xyx 3 + 2x 2 

respectively. 

Now that we know how to divide one polynomial by another, what does it mean for a 
polynomial to be divided by a set of polynomials? 

Definition 1.2.12 Let 1Z be a polynomial ring, and let O be an arbitrary admissible 
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monomial ordering. Given a nonzero polynomial p G 1Z and a set of nonzero polynomials 
P = {pi,p2, ■ ■ ■ iPm}i with pi G 1Z for all 1 ^ i ^ m, we divide p by P by working through 
p term by term, testing to see if each term is divisible by any of the pi in turn. We 
recursively divide the remainder of each division using the same method until no more 
divisions are possible, in which case the remainder is either or is irreducible. 

Algorithms to divide a polynomial p by a set of polynomials P in the commutative and 
noncommutative cases are given below as Algorithms 1 and 2 respectively. Note that they 
take advantage of the fact that if the first N terms of a polynomial q are irreducible with 
respect to P, then the first N terms of any reduction of q will also be irreducible with 
respect to P. 

Algorithm 1 The Commutative Division Algorithm 

Input: A nonzero polynomial p and a set of nonzero polynomials P = {p±, . . . ,p m } over 

a polynomial ring R[x±, . . . x n ]; an admissible monomial ordering O. 
Output: Rem(jo, P) := r, the remainder of p with respect to P. 

r = 0; 

while (p 7^ 0) do 

u = LM(p); c = LC(j>); j = 1; found = false; 
while (j ^ m) and (found == false) do 

if (LM(pj) | u) then 

found = true; v! = u/LM(j)j)] p = p — (cLC^Pj^^pju'; 

else 

J = 3 + 1] 
end if 
end while 

if (found == false) then 

r = r + LT(p); p = p — LT(p); 

end if 
end while 
return r; 



Remark 1.2.13 All algorithms in this thesis use the conventions that '=' denotes an 
assignment and '==' denotes a test. 
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Algorithm 2 The Noncommutative Division Algorithm 

To divide a nonzero polynomial p with respect to a set of nonzero polynomials P = 
{pi, . . . ,p m }, where p and the pi are elements of a noncommutative polynomial ring 
R(x 1 , . . . , x n ), we apply Algorithm 1 with the following changes. 

(a) In the inputs, replace the commutative polynomial ring R[x\, . . .x n ] by the noncom- 
mutative polynomial ring R(x±, . . . , x n ). 

(b) Change the first if condition to read 

if (LM(pj) | u) then 
found = true; 

choose ui and u r such that u = ueLM(pj)u r ; 
p = p- (cLCipjy^ugpjUr] 
else 

3=3 + 1] 
end if 



Remark 1.2.14 In Algorithm 2, if there are several candidates for ui (and therefore for 
u r ) in the line 'choose ug and u r such that u = uiLM(pj)u r \ the convention in this thesis 
will be to choose the ui with the smallest degree. 

Example 1.2.15 To demonstrate that the process of dividing a polynomial by a set of 
polynomials does not necessarily give a unique result, consider the polynomial p := xyz+x 
and the set of polynomials P := {pi, P2} = {xy — z, yz + 2x + z}, all polynomials being 
ordered by DegLex and originating from the polynomial ring Q[x, y, z\. If we choose to 
divide p by p\ to begin with, we see that p reduces to xyz + x — {xy — z)z = z 2 + x, which 
is irreducible. But if we choose to divide p by pi to begin with, we see that p reduces to 
xyz + x — (yz + 2x + z)x = —2x 2 — xz + x, which is again irreducible. This gives rise 
to the question of which answer (if any!) is the correct one here? In Chapter 2, we will 
discover that one way of obtaining a unique answer to this question will be to calculate a 
Grobner Basis for the dividing set P. 

Definition 1.2.16 In order to describe how one polynomial is obtained from another 
through the process of division, we introduce the following notation. 

(a) If the polynomial r is obtained by dividing a polynomial p by a polynomial q, then 
we will use the notation p — > r or p ^ q r (with the latter notation used if we wish to 
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show how r is obtained from p). 

(b) If the polynomial r is obtained by dividing a polynomial p by a sequence of polyno- 
mials qi,q 2 , ■ ■ ■ , q a , then we will use the notation p r. 

(c) If the polynomial r is obtained by dividing a polynomial p by a set of polynomials Q, 
then we will use the notation p — >q r. 



Chapter 2 



Commutative Grobner Bases 



Given a basis F generating an ideal J, the central idea in Grobner Basis theory is to use 
F to find a basis G for J with the property that the remainder of the division of any 
polynomial by G is unique. Such a basis is known as a Grobner Basis. 

In particular, if a polynomial p is a member of the ideal J, then the remainder of the 
division of p by a Grobner Basis G for J is always zero. This gives us a way to solve the 
Ideal Membership Problem for J - if the remainder of the division of a polynomial p by 
G is zero, then p G J (otherwise p ^ J). 

2.1 S-polynomials 

How do we determine whether or not an arbitrary basis F generating an ideal J is a 
Grobner Basis? Using the informal definition shown above, in order to show that a basis 
is not a Grobner Basis, it is sufficient to find a polynomial p whose remainder on division 
by F is non-unique. Let us now construct an example in which this is the case, and let 
us analyse what can to be done to eliminate the non-uniqueness of the remainder. 

Let pi = ai + a 2 + ■ ■ ■ + a a ; p 2 = h + b 2 + ■ • ■ + bp and p 3 = c\ + c 2 + V c 7 be three 

polynomials ordered with respect to some fixed admissible monomial ordering O (the dj, 
bj and are all nontrivial terms). Assume that p\ \ p% and p 2 \ p$, so that we are able 
to take away from p 3 multiples s and t of p\ and p 2 respectively to obtain remainders T\ 
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and r 2 . 



P3 ~ spi 



ci + c 2 H he. 



'7 



s(ai + a 2 H ha a ) 



c 2 + h c 7 — sa 2 



sa, 



c 2 H h c 7 - tb 2 



tb p . 



If we assume that r\ and r 2 are irreducible and that r\ ^ r 2 , it is clear that the remainder 
of the division of the polynomial p% by the set of polynomials P = {pi,p 2 } is non-unique, 
from which we deduce that P is not a Grobner Basis for the ideal that it generates. We 
must therefore change P in some way in order for it to become a Grobner Basis, but what 
changes are required and indeed allowed? 

Consider that we want to add a polynomial to P. To avoid changing the ideal that is being 
generated by P, any polynomial added to P must be a member of the ideal. It is clear 
that n and r 2 are members of the ideal, as is the polynomial p^ = r 2 — t\ = —tp 2 + sp±. 
Consider that we add p^ to P, so that P becomes the set 

{ai + a 2 H \- a a , b\ + b 2 H h bp, -tb 2 — tb 3 — tbp + sa 2 + sa 3 H h sa a }. 

If we now divide the polynomial p 3 by the enlarged set P, to begin with (as before) we 
can either divide p 3 by p\ or p 2 to obtain remainders T\ or r 2 . Here however, if we assume 
(without loss of generality 1 ) that LT(p 4 ) = — tb 2 , we can now divide r 2 by p<± to obtain a 
new remainder 

r 3 = r 2 - £>4 

= c 2 H h c 7 - t6 2 % - (— £&2 — t& 3 ----- tfo^ + sa 2 + sa 3 H h sa a ) 

— C2 — I — - - - — I — Cry SQj 2 " " ' SCL a 



It follows that by adding p 4 to P, we have ensured that the remainder of the division 
of P3 by P is unique 2 no matter which of the polynomials p\ and p 2 we choose to divide 



= 7"i- 



lr The other possible case is LT(j>4) = sa2, in which case it is t\ that reduces to and not ri to r±. 
2 This may not strictly be true if P3 is divisible by P4; for the time being we shall assume that this is 
not the case, noting that the important concept here is of eliminating the non-uniqueness given by the 



CHAPTER 2. COMMUTATIVE GROBNER BASES 



24 



Ps by first. This solves our original problem of non- unique remainders in this restricted 
situation. 

At first glance, the polynomial added to P to solve this problem is dependent upon the 
polynomial P3. The reason for saying this is that the polynomial added to P has the form 
Pa = spi — tp2, where s and t are terms chosen to multiply the polynomials p\ and P2 so 
that the lead terms of spi and tp2 equal LT(p3) (in fact s = lt(pi) anc ^ * = urfeV " 

However, by definition, LMQ93) is a common multiple of LM(pi) and LM(p 2 ). Because all 
such common multiples are multiples of the least common multiple of LM(pi) and LM(p 2 ) 
(so that LM(p 3 ) = /x(lcm(LM(pi), LM(p 2 ))) for some monomial /i), it follows that we can 
rewrite p 4 as 

, /lcm(LM( Pl ),LM( K )) lcm(LM( Pl ), LMfe,)) \ 

Consider now that we add the polynomial p§ = LC ^ 3 ) M to P instead of adding p^ to P. 
It follows that even though this polynomial does not depend on the polynomial p^, we 
can still obtain a unique remainder when dividing p 3 by p\ and P2, because we can do 
r 3 = r 2 ~ LC(p3)/ip5. Moreover, the polynomial p^ solves the problem of non-unique 
remainders for any polynomial p 3 that is divisible by both pi and P2 (all that changes is 
the multiple of p*, used in the reduction of r 2 ); we call such a polynomial an S-polynomiaP 
for p\ and p2- 

Definition 2.1.1 The S-polynomial of two distinct polynomials pi and P2 is given by the 
expression 

lcm(LM( Pl ),LM(p 2 )) lcm(LM( Pl ), LM(p 2 )) 

S-pol pi,p 2 = — — pi — — p 2 . 

LT(pi) LT(p 2 ) 

Remark 2.1.2 The terms lcm(LM L ^ M(pa)) and lcm(LM L ^^ M(p2)) can be thought of as the 
terms used to multiply the polynomials pi and p 2 so that the lead monomials of the 
multiples are equal to the monomial lcm(LM(pi), LM(p 2 )). 



Let us now illustrate how adding an S-polynomial to a basis solves the problem of non- 
unique remainders in a particular example. 

choice of dividing by p\ or P2 first. 

3 The S stands for Syzygy, as in a pair of connected objects. 
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Example 2.1.3 Recall that in Example 1.2.15 we showed how dividing the polynomial 

p := xyz + x by the two polynomials in the set P := {pi, p 2 } = {xy — z, yz + 2x + z) gave 
two different remainders, r\ := z 2 + x and r 2 '■— —2x 2 — xz + x respectively. Consider 
now that we add S-pol(pi,p2) to P, where 

S-pol(pi,p 2 ) = ^—{xy - z) - ^^(yz + 2x + z) 
xy yz 

= (xyz — z 2 ) — (xyz + 2x 2 + xz) 
= —2x 2 — xz — z 2 . 



Dividing p by the enlarged set, if we choose to divide p by p\ to begin with, we see that p 
reduces (as before) to give xyz + x — (xy — z)z = z 2 + x, which is irreducible. Similarly, 
dividing p by p 2 to begin with, we obtain the remainder xyz + x — (yz + 2x + z)x = 
—2x 2 — xz + x. However, whereas before this remainder was irreducible, now we can 
reduce it by the S-polynomial to give — 2x 2 — xz + x — (—2x 2 — xz — z 2 ) = z 2 + x, which 
is equal to the first remainder. 



Let us now formally define a Grobner Basis in terms of S-polynomials, noting that there 
are many other equivalent definitions (see for example [7], page 206). 

Definition 2.1.4 Let G = {g±, . . . ,g m } be a basis for an ideal J over a commutative 
polynomial ring TZ = R[x±, . . . , x n ]. If all the S-polynomials involving members of G 
reduce to zero using G (S-pol(gi, gj) -^g for all i ^ j), then G is a Grobner Basis for J. 



Theorem 2.1.5 Given any polynomial p over a polynomial ring 1Z = R[x\, . . . , x n ], the 
remainder of the division of p by a basis G for an ideal J inlZ is unique if and only if G 
is a Grobner Basis. 

Proof: (=^>) By Newman's Lemma (cf. [7], page 176), showing that the remainder 
of the division of p by G is unique is equivalent to showing that the division process is 
locally confluent, that is if there are polynomials /, f±, f 2 G 1Z with fx — f — ti^i and 
f 2 = f — t 2 g 2 for terms t\,t 2 and g±,g 2 G G, then there exists a polynomial / 3 6 K such 
that both f\ and f 2 reduce to ^3. By the Translation Lemma (cf. [7], page 200), this in 
turn is equivalent to showing that the polynomial f 2 — f\ = tigi — t 2 g 2 reduces to zero, 
which is what we shall now do. 
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There are two cases to deal with, LT(tigi) ^ LT(t 2 g 2 ) and LT(tigx) — LT(t 2 g 2 ). In the 
first case, notice that the remainders fi and f 2 are obtained by cancelling off different 
terms of the original / (the reductions of / are disjoint), so it is possible, assuming 
(without loss of generality) that LT(tipi) > LT^fi^), to directly reduce the polynomial 
ji — fi = t\g\ — t 2 g 2 in the following manner: ti^i — t 2 g 2 — >gi ^g 2 0. In the 

second case, the reductions of / are not disjoint (as the same term t from / is cancelled 
off during both reductions), so that the term t does not appear in the polynomial t±gi — 
t 2 g 2 . However, the term t is a common multiple of LT(tipi) and LT^fi^); an d thus the 
polynomial t\g\ — t 2 g 2 is a multiple of the S-polynomial S-pol(gi, g 2 ), say 

hgi ~ hg 2 = /j,(S-po\(g u g 2 )) 

for some term \i. Because G is a Grobner Basis, the S-polynomial S-pol(<7i, g 2 ) reduces to 
zero, and hence by extension the polynomial t±gi — t 2 g 2 also reduces to zero. 

(<^=) As all S-polynomials are members of the ideal J, to complete the proof it is sufficient 
to show that there is always a reduction path of an arbitrary member of the ideal that 
leads to a zero remainder (the uniqueness of remainders will then imply that members of 
the ideal will always reduce to zero). Let / £ J = (G). Then, by definition, there exist 
g i G G and fi G 71 (where 1 ^ i ^ j) such that 

j 

f = ^2fi9i- 

i=l 

We proceed by induction on j. If j = 1, then / = figi, and it is clear that we can use g\ 
to reduce / to give a zero remainder (f —> f — figi = 0). Assume that the result is true 
for j = k, and let us look at the case j — k + 1, so that 

/ = fX^/i&j + fk+Wk+1- 

By the inductive hypothesis, Y2i=i fi9i * s a member of the ideal that reduces to zero. The 
polynomial / therefore reduces to the polynomial /' := fk+igt+i, and we can now use 
gk+i to reduce /' to give a zero remainder (/' — > f — fk+igk+i = 0). □ 

We are now in a position to be able to define an algorithm to compute a Grobner Basis. 
However, to be able to prove that this algorithm always terminates, we must first prove 
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a result stating that all ideals over commutative polynomial rings are finitely generated. 
This proof takes place in two stages - first for monomial ideals (Dickson's Lemma) and 
then for polynomial ideals (Hilbert's Basis Theorem). 

2.2 Dickson's Lemma and Hilbert's Basis Theorem 

Definition 2.2.1 A monomial ideal is an ideal generated by a set of monomials. 

Remark 2.2.2 Any polynomial p that is a member of a monomial ideal is a sum of terms 
p = where each ti is a member of the monomial ideal. 

Lemma 2.2.3 (Dickson's Lemma) Every monomial ideal over the polynomial ring TZ = 
R[xi, . . . , x n ] is finitely generated. 

Proof (cf. [22], page 47): Let J be a monomial ideal over TZ generated by a set of 
monomials S. We proceed by induction on n, our goal being to show that S always has 
a finite subset T generating J. For n — 1, notice that all elements of S will be of the 
form x\ for some j ^ 0. Let T be the singleton set containing the member of S with the 
lowest degree (that is the x\ with the lowest value of j). Clearly T is finite, and because 
any element of S is a multiple of the chosen x{, it is also clear that T generates the same 
ideal as S. 

For the inductive step, assume that all monomial ideals over the polynomial ring TZ' = 
R\ Xi, . . . , x n _i] are finitely generated. Let Co C C\ C Ci C ■ • • be an ascending chain of 
monomial ideals over TZ', where 4 

Cj = (S s )Ml' t S j = ( J j- | ses). 

Let the monomial m be an arbitrary member of the ideal J, expressed as m = m'x^, 
where mf G TZ' and k ^ 0. By definition, mf G Ck, and so m G x k n C]~. By the inductive 
hypothesis, each Ck is finitely generated by a set T^, and so m G x^(T k ). From this we 
can deduce that 

T = T U x n T x U x 2 n T 2 U • • • 

is a generating set for J. 

4 Think of Co as the set of monomials m G J which are also members of TZ'; think of Cj (for j 1) as 
containing all the elements of Cj_i plus the monomials to € J of the form to = m'x J nl m' G 75/. 
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Consider the ideal C = UCj for j ^ 0. This is another monomial ideal over 1Z', and so by 
the inductive hypothesis is finitely generated. It follows that the chain must stop as soon 
as the generators of C are contained in some C r , so that C T = C r+ i = ■ ■ ■ (and hence 
T r = T r+ \ = •••). It follows that To U x n T\ U x 2 l T 2 U • • • U finite subset of S 

generating J. □ 

Example 2.2.4 Let S = {y A , xy A , x 2 y 3 , x 3 y 3 , x A y, x k } be an infinite set of monomials 
generating an ideal J over the polynomial ring Q[x,y], where k is an integer such that 
k ^ 5. We can visualise J by using the following monomial lattice, where a point (a, b) 
in the lattice (for non-negative integers a, b) corresponds to the monomial x a y b , and the 
shaded region contains all monomials which are reducible by some member of S (and 
hence belong to J). 




To show that J can be finitely generated, we need to construct the set T as described in 
the proof of Dickson's Lemma. The first step in doing this is to construct the sequence 
of sets Sj = | gcd (g y j) | s G Sj for all j ^ 0. 

5 = {y\ xy\ x 2 y 3 , x 3 y 3 , x 4 y, x k } = S 

51 = {y 3 , xy 3 , xV, x 3 y 2 , x\ x k ] 

5 2 = {y 2 , xy 2 , x 2 y, x 3 y, x 4 , x k } 

5 3 = {y, xy, x 2 , x 3 , x 4 , x k } 

S± = {y° = 1, X , x 2 , x 3 , x\ x k } 
Sj + i = Sj for all j + 1 ^5. 



Each set Sj gives rise to an ideal Cj consisting of all monomials m G (Sj) of the form 
m = x % for some % ^ 0. Because each of these ideals is an ideal over the polynomial ring 
Q[x], we can use an inductive hypothesis to give us a finite generating set Tj for each Cj. 
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In this case, the first paragraph of the proof of Dickson's Lemma tells us how to apply 
the inductive hypothesis — each set Tj is formed by choosing the monomial m G Sj of 
lowest degree such that m = x % for some % ^ 0. 



T 


= {**} 


Tl 


= {* 4 } 


T 2 


= {x 4 } 


T 3 


= {x 2 } 


Ti 


= {*° = 1} 


Tj+i 


= Tj for all k + 1 ^ 5 



We can now deduce that 

T = {x 5 } U {x 4 y} U {x 4 y 2 } U {x 2 y 3 } U {y 4 } U {y 5 } U ■ • • 

is a generating set for J. Further, because Tj+i = Tj for all fc + 1 ^ 5, we can also deduce 
that the set 

rri r5 4 42 23 41 

T = {x , x y, x y , x y , y \ 

is a finite generating set for J (a fact that can be verified by drawing a monomial lattice 
for T' and comparing it with the above monomial lattice for the set S). 

Theorem 2.2.5 (Hilbert's Basis Theorem) Every ideal J over a polynomial ring 1Z = 
R[xi, . . . , x n ] is finitely generated. 



Proof: Let O be a fixed arbitrary admissible monomial ordering, and define LM(J) = 
(LM(p) | p G J). Because LM(J) is a monomial ideal, by Dickson's Lemma it is finitely 
generated, say by the set of monomials M = {mi, . . . , m r }. By definition, each mj G M 
(for 1 ^ % ^ r) has a corresponding pi G J such that LM(pj) = m r We claim that 
P = {pi, . . . ,p r } is a generating set for J. To prove the claim, notice that (P) C J so 
that / G (P) / G J. Conversely, given a polynomial / G J, we know that LM(/) G (M) 
so that LM(/) = arrij for some monomial a and some 1 ^ j ^ r. From this, if we define 
a' = lc^) q ' we can deduce that LM(/ — o/pj) < LM(/). Since f — a'pj G J, and because 
of the admissibility of O, by recursion on / — a'pj (define fk+i = fk — a 'kPj k for k ^ 1, 
where fi — a[pj 1 := / — a'pj), we can deduce that / G (P) (in fact / = Yl<k=i a 'kPjk f° r 
some finite K). □ 
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Corollary 2.2.6 (The Ascending Chain Condition) Every ascending sequence of ide- 
als Ji C J 2 C ■ ■ • over a polynomial ring 1Z = R[x±, . . . ,x n ] is eventually constant, so 
that there is an i such that Jj = Jj + i = • • • . 

Proof: By Hilbert's Basis Theorem, each ideal (for k ^ 1) is finitely generated. 
Consider the ideal J = UJfc. This is another ideal over TZ, and so by Hilbert's Basis 
Theorem is also finitely generated. From this we deduce that the chain must stop as soon 
as the generators of J are contained in some Jj, so that Jj = J i+1 = ■ ■ ■ . □ 

2.3 Buchberger's Algorithm 

The algorithm used to compute a Grobner Basis is known as Buchberger's Algorithm. 
Bruno Buchberger was a student of Wolfgang Grobner at the University of Innsbruck, 
Austria, and the publication of his PhD thesis in 1965 [11] marked the start of Grobner 
Basis theory. 

In Buchberger's algorithm, S-polynomials for pairs of elements from the current basis are 
computed and reduced using the current basis. If the S-polynomial does not reduce to 
zero, it is added to the current basis, and this process continues until all S-polynomials 
reduce to zero. The algorithm works on the principle that if an S-polynomial S-pol((?j, gj) 
does not reduce to zero using a set of polynomials G, then it will certainly reduce to zero 
using the set of polynomials G U {S-pol(gj, gj)}. 

Theorem 2.3.1 Algorithm 3 always terminates with a Grobner Basis for the ideal J. 

Proof (cf. [7], page 213): Correctness. If the algorithm terminates, it does so with 
a set of polynomials G with the property that all S-polynomials involving members of 
G reduce to zero using G (S-pol(g.;, gj) — >g for all i ^ j). G is therefore a Grobner 
Basis by Definition 2.1.4. Termination. If the algorithm does not terminate, then an 
endless sequence of polynomials must be added to the set G so that the set A never 
becomes empty. Let Go C Gi C G2 C ■ ■ ■ be the successive values of G. If we consider 
the corresponding sequence LM(Go) C LM(Gi) C LM(G2) C ■ • • of lead monomials, we 
note that these sets generate an ascending chain of ideals Jo C J\ C J2 C ■ • • because 
each time we add a monomial to a particular set LM(Gfc) to form the set LM(Gfc + i), the 
monomial we choose is irreducible with respect to LM(Gfc), and hence does not belong to 
the ideal However the Ascending Chain Condition tells us that such a chain of ideals 



CHAPTER 2. COMMUTATIVE GROBNER BASES 



31 



Algorithm 3 A Basic Commutative Grobner Basis Algorithm 

Input: A Basis F = {/i, / 2 , . . . , f m } for an ideal J over a commutative polynomial ring 

R\ X\, . . .x n ]; an admissible monomial ordering O. 
Output: A Grdbner Basis G = {g±, g 2 , . . . , g p } for J. 

Let G = F and let A = 0; 

For each pair of polynomials (gi,gj) in G {i < j), 
add the S-polynomial S-pol(gj, gj) to A; 
while (A is not empty) do 

Remove the first entry S\ from A; 

s[ = Rem(si, G); 

if (s[ ^ 0) then 

Add s[ to G and add all the S-polynomials S-pol(g;, $[) to A e G, $ ^ s' x ); 
end if 
end while 
return G; 



must eventually become constant, so there must be some i ^ such that J» = Jj + i = ■ • • . 
It follows that the algorithm will terminate once the set Gi has been constructed, as all 
of the S-polynomials left in A will now reduce to zero (if not, some S-polynomial left in A 
will reduce to a non-zero polynomial s[ whose lead monomial is irreducible with respect to 
LM(Cj), allowing us to construct an ideal J i+1 = (LM(Gi) U{LM(s' 1 )}) D (LM(G i )) = J h 
contradicting the fact that Jj + i = Jj.) □ 

Example 2.3.2 Let F := {/i,/^} = {x 2 — 2xy + 3, 2xy + y 2 + 5} generate an ideal 
over the commutative polynomial ring Q[x, y], and let the monomial ordering be DegLex. 
Running Algorithm 3 on F, there is only one S-polynomial to consider initially, namely 
S-pol(/i, f 2 ) = y(fi) — \%(h) — ~2 X V 2 — | x + ty- This polynomial reduces (using f 2 ) to 
give the irreducible polynomial |y 3 — |x + ^-y =: ^3, which we add to our current basis. 
This produces two more S-polynomials to look at, S-pol(/i, Z^) = y 3 (fi) — ^x 2 (fs) = 
-2xy* + 2x 3 - fx 2 y + 3y 3 and S-pol(/ 2 , / 3 ) = |y 2 (/ 2 ) - |x(/ 3 ) = \y A + 2x 2 - fxy + |y 2 , 
both of which reduce to zero. The algorithm therefore terminates with the set {x 2 — 2xy + 
3, 2xy + y 2 + 5, |y 3 — \x + ^y} as the output Grobner Basis. 

Here is a dry run for Algorithm 3 in this instance. 
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G 


i 


3 


A 






{/i,/ 2 } 


1 


2 

















{S-pol(/a 


/a)} 






{h, h, fz} 


1 









-fxy 2 - fx + 3y 


/3 




2 




{S-pol(/i 


/s)} 












{S-pol(/ 2 ,/ 3 ), S- 


pol(/i,/ 3 )} 












{S-pol(/a 


/a)} 


iy 4 + 2x 2 - f xy + §y 2 
















-2xy A + 2x 3 - ^x 2 y + 3y 3 






2.4 Reduced Grobner Bases 

Definition 2.4.1 Let G = {gi, . . . ,g p } be a Grobner Basis for an ideal over the poly- 
nomial ring R[xi, . . . ,x n ]. G is a reduced Grobner Basis if the following conditions are 
satisfied. 

(a) LC(ft) = 1 R for all g { G G. 

(b) No term in any polynomial G G is divisible by any LT(pj), j 7^ z. 

Theorem 2.4.2 Every ideal over a commutative polynomial ring has a unique reduced 
Grobner Basis. 

Proof: Existence. By Theorem 2.3.1, there exists a Grobner Basis G for every ideal 
over a commutative polynomial ring. We claim that the following procedure transforms 
G into a reduced Grobner Basis G' . 

(i) Multiply each & G G by LCf^)" 1 . 

(ii) Reduce each ^ G G by G \ {gi}, removing from G all polynomials that reduce to 
zero. 

It is clear that G' satisfies the conditions of Definition 2.4.1, so it remains to show that 
G' is a Grobner Basis, which we shall do by showing that the application of each step of 
instruction (ii) above produces a basis which is still a Grobner Basis. 

Let G = {g±, . . . , g p } be a Grobner Basis, and let g\ be the reduction of an arbitrary 
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Qi G G with respect to G \ {gi}, carried out as follows (the tk are terms). 



9i = 9i-^2hg jk . 



(2.1) 



k=l 



Set H = (G\{g i })\J{g' i } if g[ ^ 0, and set H = G\{ gi } if g[ = 0. As G is a Grdbner Basis, 



all S-polynomials involving elements of G reduce to zero using G, so there are expressions 



for every S-polynomial S-pol(g a , gb) = t a g a — Ugb, where g a ,gb,g Cu G G. To show that H 
is a Grobner Basis, we must show that all S-polynomials involving elements of H reduce 
to zero using H. For distinct polynomials g a ,gb £ H not equal to g[, we can reduce the 
S-polynomial S-pol(<7 OJ <?&) using the reduction shown in Equation (2.2), substituting for 
gi from Equation (2.1) if any of the g Cu in Equation (2.2) are equal to g^ This gives a 
reduction to zero of S-pol(g a , gb) in terms of elements of H. 

If g[ = 0, our proof is complete. Otherwise consider the S-polynomial S-pol(<^, g a ). We 
claim that S-pol(#j, g a ) = t 1 g i -t 2 g a S-pol(#-, g a ) = t 1 g' i -t 2 g a - To prove this claim, it is 
sufficient to show that LT (gi) = LT(^). Assume for a contradiction that LT(gi) ^ LT(^). 
It follows that during the reduction of g^ we were able to reduce its lead term, so that 
LT(gi) = tLT(gj) for some term t and some gj G G. By the admissibility of the chosen 
monomial ordering, the polynomial g^ — tgj reduces to zero without using g iy leading to 
the conclusion that g[ — 0, a contradiction. 

It remains to show that S-pol(^, g a ) -^-h 0. We know that S-pol^j, g a ) = tigi — t 2 g a —>g 0, 
and Equation (2.2) tells us that t\g{ — t 2 g a — J2u=i^ug Cu = 0. Substituting for ^ from 
Equation (2.1), we obtain 5 



5 Substitutions for may also occur in the summation X)u=i ^«9c u ; these substitutions have not been 
considered in the displayed formulae. 




(2.2) 



u=l 




or 
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which implies that S-pol(g-, g a ) —>h 0. 

Uniqueness. Assume for a contradiction that G = {g\, . . . , g p } and H = {hi, . . . , h q } are 
two reduced Grobner Bases for an ideal J, with G / ff. Let gi be an arbitrary element 
from G (where 1 $C % ^ p). Because gi is a member of the ideal, then must reduce 
to zero using H (H is a Grobner Basis). This means that there must exist a polynomial 
hj G H such that LT(hj) | LT(gi). If LT(hj) ^ LT(^), then LT(hj) x m = LT(gi) for some 
nontrivial monomial m. But /ij is also a member of the ideal, so it must reduce to zero 
using G. Therefore there exists a polynomial g^ G G such that LT^) | LT (hj), which 
implies that LT(g%) | LT(^), with k ^ i. This contradicts condition (b) of Definition 
2.4.1, so that G cannot be a reduced Grobner Basis for J if LT (hj) ^ LT(^). From this 
we deduce that each gi e G has a corresponding hj G such that LT(gfj) = LT(/tj). 
Further, because G and are assumed to be reduced Grobner Bases, this is a one-to-one 
correspondence. 

It remains to show that if LT(^j) = LT (hj), then g$ = hj. Assume for a contradiction 
that gi hj, and consider the polynomial gi — hj. Without loss of generality, assume 
that LM(<7j — hj) appears in g^. Because gi — hj is a member of the ideal, then there is a 
polynomial gj. G G such that LT(gk) \ LT(gi — hj). But this again contradicts condition 
(b) of Definition 2.4.1, as we have shown that there is a term in g^ that is divisible by 
LT(gk) for some k ^ i. It follows that G cannot be a reduced Grobner Basis if gi ^ hj, 
which means that G = H and therefore reduced Grobner Bases are unique. □ 

Given a Grobner Basis G, we saw in the proof of Theorem 2.4.2 that if the lead term of 
any polynomial gi G G is reducible by some polynomial gj G G (where gj ^ gi), then gi 
reduces to zero. We can use this information to refine the procedure for finding a unique 
reduced Grobner Basis (as given in the aforementioned proof) by allowing the removal of 
any polynomial gi G G whose lead monomial is a multiple of some other lead monomial 
LM(<7j). This process, which if often referred to as minimising a Grobner Basis (as in 
finding a Grobner Basis with the minimal number of elements), is incorporated into our 
refined procedure, which we state as Algorithm 4. 

2.5 Improvements to Buchberger's Algorithm 

Nowadays, most general purpose symbolic computation systems possess an implemen- 
tation of Buchberger's algorithm. These implementations often take advantage of the 
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Algorithm 4 The Commutative Unique Reduced Grobner Basis Algorithm 

Input: A Grobner Basis G = {g±, g 2 , . . . , g m } for an ideal J over a commutative polyno- 
mial ring R[xi, . . . x n }; an admissible monomial ordering O. 
Output: The unique reduced Grobner Basis G' = {g[, g' 2 , . . . , g' p } for J. 

G" = 0; 

for each gi E G do 

Multiply 9i by LC(^)- 1 ; 

if (LM(g'j) = uLM(gj) for some monomial u and some g$ E G (gj ^ gi)) then 

G = G\{g l } ] 
end if 
end for 

for each gi E G do 

^ = Rem(^,(G\{^})UG'); 

G = G\{ 9i }; G' = G>U{g>}; 
end for 
return G'\ 



numerous improvements made to Buchberger's algorithm over the years, some of which 
we shall now describe. 

2.5.1 Buchberger's Criteria 

In 1979, Buchberger published a paper [10] which gave criteria that enable the a priori 
detection of S-polynomials that reduce to zero. This speeds up Algorithm 3 by drastically 
reducing the number of S-polynomials that must be reduced with respect to the current 
basis. 

Proposition 2.5.1 (Buchberger's First Criterion) Let f and g be two polynomials 
over a commutative polynomial ring ordered with respect to some fixed admissible mono- 
mial ordering O. If the lead terms of f and g are disjoint (so that lcm(LM(/), LM(g)) = 
LM(f)LM(g)), then S-pol(/, g) reduces to zero using the set {f,g}. 
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Proof (Adapted from [7], Lemma 5.66): Assume that / = J2i=i s i 



where the Sj and the tj are terms. Because s\ and t\ are disjoint, it follows that 



We claim that no two terms in Equation (2.3) are the same. Assume to the contrary 
that t\Si = s\tj for some 2 ^ i ^ a and 2 ^ j ^ (3. Then t\Si is a multiple of both t\ 
and si, which means that t\Si is a multiple of lcm(t 1; si) = t-\_8\. But then we must have 
tiSi ^ tiSi, which gives a contradiction (by definition s\ > s$). 

As every term in ti(s 2 + • • • + s a ) is a multiple of £i, we can use g to eliminate each of the 
terms tis a , tis a -i, . . ., t\S 2 in Equation (2.3) in turn: 



h(s 2 H h s a ) - si(t 2 H ht/j) 

-> ii(s 2 H hs a )-si(t 2 H ht/3)-s Q 5f 

= ti(s 2 H h s a _i) - si(t 2 H h tp) - s a (t 2 H h fy) 

-> ti(s 2 H h s a _ 2 ) - (si + s a _i + s a )(t 2 H h t/3) 

-»■ -(si + S2 + --- + S Q )(t 2 + ---+t /9 ) 

= + •■■ + */?) s a (t 2 + --- + t /3 ). (2.4) 



We do this in reverse order because, having eliminated a term t±s 1 (where 3 ^ 7 ^ a), to 
continue the term t±s 7 -i must appear in the reduced polynomial (which it does because 
tis 7 _i > sstrj for all 7 ^ 5 ^ a and 2 ^ 77 ^ /3). 



S-pol(/,p) = hf-sig 



h(s 2 H \-s a ) - si(t 2 H h t/3). 



(2.3) 
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We now use the same argument on — si(t 2 + • • • + tp), using / to eliminate each of its 
terms in turn, giving the following reduction sequence. 



-si(t 2 + - 


■■+tp)-- 


s a (t 2 + • ' 


■ + tp) 




-» Si{t 2 +- 


■■+tp)-- 


Sa(h + ■ ' 


■■ + tp) + t 2 f 




= Sl(t 2 + - 


■■+tp)-- 


Sa(h + ■ ' 


■ + tp)+t 2 ( Sl + - 


■ ■ + s a ) 


= Sl(t 3 + - 


■■+tp)-- 


Sa(t 3 + ■ ' 


• + tp) 




-> Sl{t 4 + - 


■■+tp)-- 


S a (£4 + • ■ 


■ + tp) 





-> 0. 

Technical point: If some term s{tj (for i,j ^ 2) cancels the term s^tk (for k ^ 3) in 
Equation (2.4), then as we must have j < k in order to have s{tj = Sitfe, the term sit^ will 
reappear as s{tj when the term s\tj is eliminated, allowing us to continue the reduction 
as shown. This argument can be extended to the case where a combination of terms of 
the form s{tj cancel the term sit^, as the term sit& will reappear after all the terms sit K 
(for 2 «C k < k) have been eliminated. □ 

Proposition 2.5.2 (Buchberger's Second Criterion) Let f , g and h be three mem- 
bers of a finite set of polynomials P over a commutative polynomial ring satisfying the 
following conditions. 

(a) LM(h) | lcm(LM(/),LM(#)). 

(b) S-pol(/, ft) ->p0 and S-po\(g, h) — >p 0. 

Then S-pol(/,#) ^ P 0. 

Proof: If LM(ti) | lcm(LM(/), LM(g)), then m h lM(h) = lcm(LM(/), LM(g)) for some 
monomial m^. Assume that lcm(LM(/), LM(g)) = mjLM(/) = m g LM(g) for some mono- 
mials rrif and m g . Then it is clear that m/LM(/) = m^LM^/i) is a common multiple of 
LM(/) and LM(h), and m g LM(g) = m/,LM(/i) is a common multiple of LM(g) and 
LM(h). It follows that lcm(LM(/), LM(g)) is a multiple of both lcm(LM(/), LM(h)) and 
lcm(LM(#),LM(/i)), so that 



lcm(LM(/), LM(g)) = m /fc lcm(LM(/), LM(h)) = m gh \cm(LM(g) , LM(h)) (2.5) 
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for some monomials rrifh and m g h- 

Because the S-polynomials S-pol(/, h) and S-pol(g, h) both reduce to zero using P, there 
are expressions 

a 

S-pol(/, h) - = 

i=i 

and 

S-pol(#,/i) - J^tjPj = 0, 
i=i 

where the Sj and the tj are terms, and Pi,Pj G P for all i and j. It follows that 

m fh ^s-poi(/, h )~Yl SiP ^j = m 9 h f s "P ol (fls h ) - tjPl) ' 

f lcm(LM(/),LM(/Q) f lcm(LM(/), LM(fe)) A 
™/a I LT(7) / LT(/i) * - ^ 8iPi 



m 



lcm(LM(#),LM(/i)) lcm(L]V%), LM(A)) A 
1 uf(Jj ^ UT(/i) " ^ 



/ lcm(LM(/), LM(g)) lcm(LM(/), LM(g)) ^ 
m fh LT(f) J ~ m fh LT(h) 



ni 



Acm(LM(/),LM(g)) lcm(LM(/), LM(g)) A 
1 m gh LT(g) 9 m gh LT(h) ^ jPj 



lcm(LM(/),LM(ff)) ^ A lcm(LM(/), LM(g)) A 
f-mfh^SiPi = g-mgh2^t jPj i 

a (3 

S-pol(/, g) - }]mf h SiPi + rrightjPj = 0. 
i=i j=i 

To conclude that the S-polynomial S-pol(/, g) reduces to zero using P, it remains to show 
that the algebraic expression —J2i=i m fh s iPi + J2j=i m ghtjPj corresponds to a valid re- 
duction of S-pol(/, g). To do this, it is sufficient to show that no term in either of the sum- 
mations is greater than lcm(LM(/), LM(g)) (so that LM(m// l s i pj) < lcm(LM(/), LM(g)) 
and LM(m g htjPj) < lcm(LM(/), LM(g)) for all i and j). But this follows from Equation 
(2.5) and from the fact that the original reductions of S-pol(/, h) and S-pol(g, h) are valid, 
so that LM(siPi) < lcm(LM(/), LM(h)) and IMfopj) < lcm(LM(g),LM(h)) for all i and 
3- □ 
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2.5.2 Homogeneous Grobner Bases 

Definition 2.5.3 A polynomial is homogeneous if all its terms have the same degree. For 
example, the polynomial x 2 y+4yz 2 +3z 3 is homogeneous, but the polynomial x 3 y+Ax 2 +4:5 
is not homogeneous. 

Of the many systems available for computing commutative Grobner Bases, some (such as 
Bergman [6]) only admit sets of homogeneous polynomials as input. This restriction leads 
to gains in efficiency as we can take advantage of some of the properties of homogeneous 
polynomial arithmetic. For example, the S-polynomial of two homogeneous polynomials 
is homogeneous, and the reduction of a homogeneous polynomial by a set of homogeneous 
polynomials yields another homogeneous polynomial. It follows that if G is a Grobner 
Basis for a set F of homogeneous polynomials, then G is another set of homogeneous 
polynomials. 

At first glance, it seems that a system accepting only sets of homogeneous polynomials 
as input is not able to compute a Grobner Basis for a set of polynomials containing one 
or more non-homogeneous polynomials. However, we can still use the system if we use an 
extendible monomial ordering and the processes of homogenisation and dehomogenisation. 

Definition 2.5.4 Let p = po + • • ■ + p m be a polynomial over the polynomial ring 
R[xi, . . . , x n ], where each p t is the sum of the degree i terms in p (we assume that p m ^ 0). 
The homogenisation of p with respect to a new (homogenising) variable y is the polynomial 

hip) ■= p y m + Piy m ~ l + ■■■ + Pm-w + p m , 

where h(p) belongs to a polynomial ring determined by where y is placed in the lexico- 
graphical ordering of the variables. 

Definition 2.5.5 The dehomogenisation of a polynomial p is the polynomial d(p) given 
by substituting y — 1 in p, where y is the homogenising variable. For example, the 
dehomogenisation of the polynomial x\ + X\Xiy + x±y 2 G Q[x\,X2,y] is the polynomial 

x\ + X\X 2 + Xi G Q[x 1 ,x 2 \. 

Definition 2.5.6 A monomial ordering O is extendible if, given any polynomial p = 
t\ + • • • + t a ordered with respect to O (where t\ > • • • > t a ), the homogenisation of p 
preserves the order on the terms (t^ > t' i+1 for all 1 ^ i ^ a — 1, where the homogenisation 
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process maps the term ti G p to the term t\ G h(p)). 

Of the monomial orderings defined in Section 1.2.1, two of them (Lex and DegRevLex) 
are extendible as long as we ensure that the new variable y is lexicographically less than 
any of the variables x±, . . . ,x n ; another (InvLex) is extendible as long as we ensure that 
the new variable y is lexicographically greater than any of the variables x\, . . . , x n . 

The other monomial orderings are not extendible as, no matter where we place the new 
variable y in the ordering of the variables, we can always find two monomials mi and rri2 
such that, if p = mi + m2 (with mi > mj), then in h(p) = m' l +m! 2l we have m! x < m' 2 . For 
example, mi := X\x\ and m 2 := x\ provides a counterexample for the DegLex monomial 
ordering. 

Definition 2.5.7 Let F = {/i, . . . , f m } be a non-homogeneous set of polynomials. To 
compute a Grobner Basis for F using a program that only accepts sets of homogeneous 
polynomials as input, we proceed as follows. 

(a) Construct a homogeneous set of polynomials F' = {h(fi), . . . , h(f m )}. 

(b) Compute a Grobner Basis G' for F' . 

(c) Dehomogenise each polynomial g' G G' to obtain a set of polynomials G. 

As long as the chosen monomial ordering O is extendible, G will be a Grobner Basis for 
F with respect to O [22, page 113]. A word of warning however - this process is not 
necessarily more efficient that the direct computation of a Grobner Basis for F using a 
program that does accept non- homogeneous sets of polynomials as input. 

2.5.3 Selection Strategies 

One of the most important factors when considering the efficiency of Buchberger's algo- 
rithm is the order in which S-polynomials are processed during the algorithm. A particular 
choice of a selection strategy to use can often cut down substantially the amount of work 
required in order to obtain a particular Grobner Basis. 

In 1979, Buchberger defined the normal strategy [10] that chooses to process an S- 
polynomial S-pol(/, g) if the monomial lcm(LM(/), LM(g)) is minimal (in the chosen 
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monomial ordering) amongst all such lowest common multiples. This strategy was refined 
in 1991 to give the sugar strategy [29], a strategy that chooses an S-polynomial to pro- 
cess if the sugar of the S-polynomial (a value associated to the S-polynomial) is minimal 
amongst all such values (the normal strategy is used in the event of a tie). 

Motivation for the sugar strategy comes from the observation that the normal strategy 
performs well when used with a degree-based monomial ordering and a homogeneous ba- 
sis; the sugar strategy was developed as a way to proceed based on what would happen 
when using the normal strategy in the computation of a Grobner Basis for the correspond- 
ing homogenised input basis. We can therefore think of the sugar of an S-polynomial as 
representing the degree of the corresponding S-polynomial in the homogeneous computa- 
tion. 

The sugar of an S-polynomial is computed by using the following rules on the sugars 
of polynomials we encounter during the computation of a Grobner Basis for the set of 
polynomials F = {/i, . . . , f m }. 

(1) The sugar Sugj. of a polynomial /$ G F is the total degree of the polynomial (which 
is the degree of the term of maximal degree in fi). 

(2) If p is a polynomial and if t is a term, then Sug tp = deg(t) + Sug p . 

(3) Up = p 1 + p 2 , then Sug p = max(Sug pi , Sug p2 ). 

It follows that the sugar of the S-polynomial S-pol(g, h) = lcm ( LI ^(g)^ M W) g_ icm(LMQ>),LM(fe)) ^ 
is given by the formula 

Sug S -poi( 9 ,h.) = max(Sug 5 - deg(LM(y)), Sug h - deg(LM(/i))) + deg(lcm(LM(^), LM(h))). 

Example 2.5.8 To illustrate how a selection strategy reduces the amount of work re- 
quired to compute a Grobner Basis, consider the ideal generated by the basis {x 31 — x 6 — 
x — y, x 8 — z, x 10 — t} over the polynomial ring Q[x, y, z, t]. In our own implementation of 
Buchberger's algorithm, here is the number of S-polynomials processed during the algo- 
rithm when different selection strategies and different monomial orderings are used (the 
numbers quoted take into account the application of both of Buchberger's criteria). 
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Selection Strategy 


Lex 


DegLex 


DegRevLex 


No strategy 


640 


275 


320 


Normal strategy 


123 


63 


61 


Sugar strategy 


96 


55 


54 



2.5.4 Basis Conversion Algorithms 

One factor which heavily influences the amount of time taken to compute a Grdbner 
Basis is the monomial ordering chosen. It is well known that some monomial orderings 
(such as Lex) are characterised as being 'slow', while other monomial orderings (such as 
DegRevLex) are said to be 'fast'. In practice what this means is that it usually takes far 
more time to calculate (say) a Lex Grobner Basis than it does to calculate a DegRevLex 
Grdbner Basis for the same generating set of polynomials. 

Because many of the useful applications of Grdbner Bases (such as solving systems of 
polynomial equations) depend on using 'slow' monomial orderings, a number of algorithms 
were developed in the 1990 's that allow us to obtain a Grobner Basis with respect to one 
monomial ordering from a Grobner Basis with respect to another monomial ordering. 

The idea is that the time it takes to compute a Grobner Basis with respect to a 'fast' 
monomial ordering and then to convert it to a Grobner Basis with respect to a 'slow' 
monomial ordering may be significantly less than the time it takes to compute a Grobner 
Basis for the 'slow' monomial ordering directly. Although seemingly counterintuitive, the 
idea works well in practice. 

One of the first conversion methods developed was the FGLM method, named after the 
four authors who published the paper [21] introducing it. The method relies on linear 
algebra to do the conversion, working with coefficient matrices and irreducible monomials. 
Its only drawback lies in the fact that it can only be used with zero- dimensional ideals, 
which are the ideals containing only a finite number of irreducible monomials (for each 
variable Xj in the polynomial ring, a Grobner Basis for a zero-dimensional ideal must 
contain a polynomial which has a power of Xi as the leading monomial). This restriction 
does not apply in the case of the Grdbner Walk [18], a basis conversion method we shall 
study in further detail in Chapter 6. 
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2.5.5 Optimal Variable Orderings 

In many cases, the ordering of the variables in a polynomial ring can have a significant 
effect on the time it takes to compute a Grobner Basis for a particular ideal (an example 
can be found in [17]). This is worth bearing in mind if we are searching for any Grobner 
Basis with respect to a certain ideal, so do not mind which variable ordering is being used. 
A heuristically optimal variable ordering is described in [34] (deriving from a discussion 
in [9]), where we order the variables so that the variable that occurs least often in the 
polynomials of the input basis is the largest variable; the second least common variable 
is the second largest variable; and so on (ties are broken randomly). 

Example 2.5.9 Let F := {y 2 z 2 +x 2 y, x 2 y A z + xy 2 z + y 3 , y 7 + x 3 z} generate an ideal over 
the polynomial ring Q[x,y,z\. Because x occurs 8 times in F, y occurs 19 times and z 
occurs 5 times, the heuristically optimal variable ordering is z > x > y. This is supported 
by the following table showing the times taken to compute a Lex Grobner Basis for F 
using all six possible variable orderings, where we see that the time for the heuristically 
optimal variable ordering is close to the time for the true optimal variable ordering. 



Variable Order 


Time 


Size of Grobner Basis 


x > y > z 


1:15.10 


6 


x > z > y 


0:02.85 


7 


y > x > z 


2:19.45 


7 


y > z > x 


2:16.09 


7 


z > x > y 


0:05.91 


8 


z > y > x 


5:44.38 


8 



2.5.6 Logged Grobner Bases 

In some situations, such as in the algorithm for the Grobner Walk, it is desirable to be 
able to express each member of a Grobner Basis in terms of members of the original basis 
from which the Grobner Basis was computed. When we have such representations, our 
Grobner Basis is said to be a Logged Grobner Basis. 

Definition 2.5.10 Let G = {gi, . . . ,g p } be a Grobner Basis computed from an initial 
basis F = {fi, . . . , f m }. We say that G is a Logged Grobner Basis if, for each G G, we 
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have an explicit expression of the form 



where the t a are terms and fk a G F for all 1 ^ a ^ (3. 

Proposition 2.5.11 Given a finite basis F = {fx, . . . , f m }, it is always possible to com- 
pute a Logged Grobner Basis for F. 



Proof: We are required to prove that every polynomial added to the input basis F = 
■ • • j fm} during Buchberger's algorithm has a representation in terms of members of 
F. But any such polynomial must be a reduced S-polynomial, so it follows that the first 
polynomial f m +\ added to F will always have the form 

P 

f m+1 = S-pol(/i, fj) - ^ WW, 

a=l 

where fa, fj, fk a G F and the t a are terms. This expression clearly gives a representation 
of our new polynomial in terms of members of F, and by induction (using substitution) it 
is also clear that each subsequent polynomial added to F will also have a representation 
in terms of members of F. □ 

Example 2.5.12 Let F := {/i,/2,/s} = {xy — z, 2x + yz + z, x + yz} generate an 
ideal over the polynomial ring Q[x, y,z], and let the monomial ordering be Lex. In 
obtaining a Grobner Basis for F using Buchberger's algorithm, three new polynomials 
are added to F, giving a Grobner Basis G := {g±, gz, g^, 55, g§} = {xy — z, 2x + yz + 
z, x + yz, —^yz + |z, — 2z 2 , —2z}. These three new polynomials are obtained from the S- 
polynomials S-po\(2x +yz+z, x+yz), S-po\(xy—z, —\yz+\z) and S-pol(xy — z, 2x+yz+z) 



CHAPTER 2. COMMUTATIVE GROBNER BASES 



respectively: 

S-pol(2x + yz + z, x + yz) 



1 



(2x + yz + z) — (as + yz) 



-2 VZ + 2 I; 



s . pol -\y* + \* 



z{xy — z) + 2x 



xz — z 



1 



-2 yZ+ 2 Z 



xz — z — —z (2x + yz + z) 



'{14 



2 2 

— yz z 

2 y 2 

1 2 3 o 

— yz z — z 

2 y 2 

-2z 2 : 



1 1 

-yz H — 2 
2 y 2 



S-pol(rq/ — z, 2x + yz + z) 



94 



' 94 



(asy - z)- -y (2as + yz + z) 

1 2 1 

1 2 1 / 1 1 

-yz - z 

Z' 1 1 

-yz - z - 2 I "2^+ 2 2 
-2z. 



These reductions enable us to give the following Logged Grobner Basis for F. 



Member of G 


Logged Representation 


9l = X y- z 


h 


g 2 = 2x + yz + z 


h 


93 = x + yz 


h 


#4 = -\yz + \z 




95 = ~2z 2 


z/i + {x- z)f 2 + (-2x + z)f 3 


96 = ~z 


f 1 + (-y-l)f 2 +(y + 2)f 3 



Chapter 3 



Noncommutative Grobner Bases 



Once the potential of Grobner Basis theory started to be realised in the 1970's, it was only 
natural to try to generalise the theory to related areas such as noncommutative polynomial 
rings. In 1986, Teo Mora published a paper [45] giving an algorithm for constructing a 
noncommutative Grobner Basis. This work built upon the work of George Bergman; in 
particular his "diamond lemma for ring theory" [8]. 

In this chapter, we will describe Mora's algorithm and the theory behind it, in many 
ways giving a 'noncommutative version' of the previous chapter. This means that some 
material from the previous chapter will be duplicated; this however will be justified when 
the subtle differences between the cases becomes apparent, differences that are all too 
often overlooked when an 'easy generalisation' is made! 

As in the previous chapter, we will consider the theory from the point of view of S- 
polynomials, in particular defining a noncommutative Grobner Basis as a set of polyno- 
mials for which the S-polynomials all reduce to zero. At the end of the chapter, in order 
to give a flavour of a noncommutative Grobner Basis program, we will give an extended 
example of the computation of a noncommutative Grobner Basis, taking advantage of 
some of the improvements to Mora's algorithm such as Buchberger's criteria and selection 
strategies. 
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3.1 Overlaps 

For a (two-sided) ideal J over a noncommutative polynomial ring, the concept of a Grobner 
Basis for J remains the same: it is a set of polynomials G generating J such that remain- 
ders with respect to G are unique. How we obtain that Grobner Basis also remains the 
same (we add S-polynomials to an initial basis as required); the difference comes in the 
definition of an S-polynomial. 

Recall (from Section 2.1) that the purpose of an S-polynomial S-pol(pi,p2) is to ensure 
that any polynomial p reducible by both p\ and P2 has a unique remainder when divided by 
a set of polynomials containing p\ and p%- In the commutative case, there is only one way 
to divide p by p\ or p2 (giving reductions p — t\pi or p — tipi respectively, where t\ and £2 
are terms); this means that there is only one S-polynomial for each pair of polynomials. In 
the noncommutative case however, a polynomial may divide another polynomial in many 
different ways (for example the polynomial xyx — z divides the polynomial xyxyx + Ax 2 
in two different ways, giving reductions zyx + 4x 2 and xyz + Ax 2 ). For this reason, we 
do not have a fixed number of S-polynomials for each pair (p\,p2) of polynomials in the 
noncommutative case - that number will depend on the number of overlaps between the 
lead monomials of p\ and p2- 

In order to explain what an overlap is, we first need the following preliminary definitions 
allowing us to select a particular part of a noncommutative monomial. 

Definition 3.1.1 Consider a monomial m of degree d over a noncommutative polynomial 
ring 71. 

• Let Prefix(m, 1) denote the prefix of m of degree i (where 1 ^ i ^ d). For example, 
Prefix (x 2 yz, 3) = x 2 y\ Prefix(^?/x 2 , 1) = z and Prefix(|/ 2 2x, 4) = y 2 zx. 

• Let Suffix(m, 1) denote the suffix of m of degree i (where 1 ^ i ^ d). For example, 
Su&x(x 2 yz, 3) = xyz; SuSix(zyx 2 , 1) = x and SuSix(y 2 zx, 4) = y 2 zx. 

• Let Subword(m, 2, j) denote the subword of m starting at position i and finishing 
at position j (where 1 ^ i ^ j ^ d). For example, Subword (z^a; 2 , 2, 3) = yx; 
Subword (zyx 2 , 3, 3) = x and Subword (y 2 zx, 1, 4) = y 2 zx. 

Definition 3.1.2 Let mi and m>2 be two monomials over a noncommutative polynomial 
ring 1Z with respective degrees d\ ^ c?2. We say that vii\ and wi2 overlap if any of the 
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following conditions are satisfied. 

(a) Preflx(mi, i) = Sufnx(m 2 ,i) (1 ^ % < d 2 ); 

(b) Subword(mi, i, i + d 2 — 1) = m 2 (1 ^ i ^ d\ — d 2 + 1); 

(c) Suffix(mi, i) = Prefix(m 2 ,z) (1 ^ i < d 2 ). 

We will refer to the above overlap types as being prefix, subword and suffix overlaps 
respectively; we can picture the overlap types as follows. 

Prefix Subword Suffix 

mi nil mi 

m 2 m 2 m 2 

Remark 3.1.3 We have defined the cases where m 2 is a prefix or a suffix of nil to be 
subword overlaps. 

Proposition 3.1.4 Let p be a polynomial over a noncommutative polynomial ring TZ that 
is divisible by two polynomials pi,p 2 G 71, so that £iLM(pi)ri = LM(p) = £ 2 LM(p 2 )r 2 for 
some monomials £i,£ 2 ,ri,r 2 . As positioned in LM(p), if LM(pi) and LM(p 2 ) do not 
overlap, then no matter which of the two reductions of p we apply first, we can always 
obtain a common remainder. 



Proof: We picture the situation as follows (u is a monomial). 

u 

£i LM(pi) n 
LM(p) 

i 2 LM(p 2 ) 



We construct the common remainder by using p 2 to divide the remainder we obtain by 
dividing p by p\ (and vice versa). 
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Reduction by pi first 

= (p - LT(p)) - (LC^LCfo)- 1 )^ - LT(p!))n 

= (p - LT(p)) - (LC^LCfri)- 1 )^ - LT(p!)) U LM(p 2 )r 2 

A (p - LT(p)) - (LC^LC^^LC^)- 1 )^ - LT( Pl ))n(p 2 - LT(p 2 ))r 2 

Reduction by p 2 first 
p - p-(LC(p)LC(p 2 )- 1 )£ 2 p 2 r 2 

= (p - LT(p)) - (LC(p)LC(p 2 )- 1 )£ 2 (p 2 - LT(p 2 ))r 2 

= (p - LT(p)) - (LC(p)LC(p 2 y l )£ 1 LM(p 1 )u(p 2 - LT(p 2 ))r 2 

A (p - LT(p)) - (LC(p)LC(p 1 )- 1 LC(p 2 )- 1 )f 1 (p 1 - LTfo))^ - LT(p 2 ))r 2 

□ 

Let p, pi, p 2 , £1, £ 2 , ri and r 2 be as in Proposition 3.1.4. As positioned in LM(p), in 
general the lead monomials of pi and p 2 may or may not overlap, giving four different 
possibilities, each of which is illustrated by an example in the following table. 



LM(p) 




lm( Pi ) 






LM(p 2 ) 


r 2 


Overlap? 


x 2 yzxy 3 


x 2 yz 


xy 3 


1 


x y 


zx 


y 3 


Prefix overlap 


x 2 yzxy 3 


X 


xyzxy 


y 2 


x 2 


yzx 


y 3 


Subword overlap 


x 2 yzxy 3 


X 


xyz 


xy 3 


2 

x y 


zx 


y 3 


Suffix overlap 


x 2 yzxy 3 


x 2 


y 


zxy 3 


x 2 yz 


2 

xy 


y 


No overlap 



In the cases that LM(pi) and LM(p 2 ) do overlap, we are not guaranteed to be able to 
obtain a common remainder when we divide p by both pi and p 2 . To counter this, we 
introduce (as in the commutative case) an S-polynomial into our dividing set to ensure 
a common remainder, requiring one S-polynomial for every possible way that LM(pi) 
and LM(p 2 ) overlap, including self overlaps (where pi = p 2 , for example Piefix(xyx, 1) = 
SuSix(xyx, 1)). 

Definition 3.1.5 Let the lead monomials of two polynomials pi and p 2 overlap in such a 
way that £ 1 LM(p 1 )r 1 = £ 2 LM(p 2 )r 2 , where ^i,£ 2 ,ri and r 2 are monomials chosen so that 
at least one of l\ and l 2 and at least one of T\ and r 2 is equal to the unit monomial. The 
S-polynomial associated with this overlap is given by the expression 



S-pol(£i,pi,£ 2 ,p 2 ) = ctitptn - c 2 £ 2 p 2 r 2 , 
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where c\ = LC(p 2 ) and c 2 = LC(pi). 

Remark 3.1.6 The monomials l\ and £ 2 are included in the notation S-pol(£i,pi, £2^2) 
in order to differentiate between distinct S-polynomials involving the two polynomials p\ 
and P2 (there is no need to include and r 2 in the notation because T\ and r 2 are uniquely 
determined by i\ and £2 respectively). 

Example 3.1.7 Consider the polynomial p := xyz + 2y and the set of polynomials P := 
{Pi)P2} = {xy — z,yz — x}, all polynomials being ordered by DegLex and originating 
from the polynomial ring Q(x, y, z). We see that p is divisible (in one way) by both of the 
polynomials in P, giving remainders z 2 + 2y and x 2 + 2y respectively, both of which are 
irreducible by P. It follows that p does not have a unique remainder with respect to P. 

Because there is only one overlap involving the lead monomials of p\ and P2, namely 
Suffix(xy, 1) = Prefix(?/2;, 1), there is only one S-polynomial for the set P, which is the 
polynomial (xy — z)z — x(yz — x) = x 2 — z 2 . When we add this polynomial to the set 
P, we see that the remainder of p with respect to the enlarged P is now unique, as the 
remainder of p with respect to P2 (the polynomial x 2 + 2y) is now reducible by our new 
polynomial, giving a new remainder z 2 + 2y which agrees with the remainder of p with 
respect to p x . 

Let us now give a definition of a noncommutative Grobner Basis in terms of S-polynomials. 

Definition 3.1.8 Let G = {gi, . . . , g m } be a basis for an ideal J over a noncommutative 
polynomial ring 7Z = R(xi, . . . , x n ). If all the S-polynomials involving members of G 
reduce to zero using G, then G is a noncommutative Grobner Basis for J. 

Theorem 3.1.9 Given any polynomial p over a polynomial ring 1Z = R(x±, . . . , x n ) , the 

remainder of the division of p by a basis G for an ideal J in 1Z is unique if and only if G 
is a Grobner Basis. 

Proof: (=>•) Following the proof of Theorem 2.1.5, we need to show that the division 
process is locally confluent, that is if there are polynomials /, fx, fi £ 1Z with f\ = 
f — £\g\"f\ and f 2 = f — ligifi for terms ^1,^2,^1,^2 and gi,g2 6 G, then there exists a 
polynomial / 3 6 K such that both fi and / 2 reduce to ^3. As before, this is equivalent to 
showing that the polynomial / 2 — f\ = £\g\r\ — ^ 2 g 2 r 2 reduces to zero. 
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If LT(^i<7iri) 7^ LT(£ 2 g 2 r 2 ), then the remainders fi and f 2 are obtained by cancelling 
off different terms of the original / (the reductions of / are disjoint), so it is possible, 
assuming (without loss of generality) that LT^^rx) > LT(£ 2 g 2 r 2 ), to directly reduce 
the polynomial f 2 — f\ = £\g\T\ — ^ 2 g 2 r 2 in the following manner: £\g\T\ — ^ 2 g 2 ri — > gi 

-(■292T2 ^92 0. 

On the other hand, if LT(^xg'iri) = LT(£ 2 g 2 r 2 ), then the reductions of / are not disjoint 
(as the same term t from / is cancelled off during both reductions), so that the term t does 
not appear in the polynomial l\9\T\ — £ 2 g 2 T 2 - However, the monomial LM(t) must contain 
the monomials LM(pi) and LM(g 2 ) as subwords if both gi and g2 cancel off the term t, 
so it follows that LM(pi) and LM(g 2 ) will either overlap or not overlap in LM(t). If they 
do not overlap, then we know from Proposition 3.1.4 that j\ and f 2 will have a common 
remainder [f x — —> / 3 and f 2 — —> fa), so that f 2 — f\ — — > 73-/3 = 0. Otherwise, because of 
the overlap between LM(pi) and LM(g 2 ), the polynomial l\g\T\ — £2.92X2 will be a multiple 
of an S-polynomial, say l\g\T\ — £ 2 g 2 r 2 = £ 3 (S-pol(^, g±, £ 2 , g2))rz for some terms £3, r 3 and 
some monomials £'i,£' 2 - But G is a Grobner Basis, so the S-polynomial S-pol^, gi, £ 2 , g 2 ) 
will reduce to zero, and hence by extension the polynomial ^i^i?"! —£ 2 g 2 r 2 will also reduce 
to zero. 

(<^=) As all S-polynomials are members of the ideal J, to complete the proof it is sufficient 
to show that there is always a reduction path of an arbitrary member of the ideal that 
leads to a zero remainder (the uniqueness of remainders will then imply that members of 
the ideal always reduce to zero). Let / G J = (G). Then, by definition, there exist gi G G 
(not necessarily all different) and terms £i, rj G 1Z (where 1 ^ % ^ j) such that 



We proceed by induction on j. If j = 1, then / = £\g\r\, and it is clear that we can use 
gi to reduce / to give a zero remainder (/ — > gi f — £\g\r 1 = 0). Assume that the result 
is true for j = k, and let us look at the case j — k + 1, so that 



3 



i=l 




By the inductive hypothesis, Yli=i ^i9i r i is a member of the ideal that reduces to zero. 
The polynomial / therefore reduces to the polynomial /' := £ k+1 g k+1 r k+ i, and we can 
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now use gk+i to reduce /' to give a zero remainder (/' — > 9k+1 f — £k+igk+i^k+i = 0). □ 

Remark 3.1.10 The above Theorem forms part of Bergman's Diamond Lemma [8, The- 
orem 1.2]. 

3.2 Mora's Algorithm 

Let us now consider the following pseudo code representing Mora's algorithm for comput- 
ing noncommutative Grobner Bases [45]. 

Algorithm 5 Mora's Noncommutative Grobner Basis Algorithm 

Input: A Basis F = {fi, f 2 , . . . , f m } for an ideal J over a noncommutative polynomial 

ring R(xi, . . .x n ); an admissible monomial ordering O. 
Output: A Grobner Basis G = {g±, g 2 , ■ ■ ■ , g p } for J (in the case of termination). 

Let G = F and let A = 0; 

For each pair of polynomials (g iy gj) in G (i ^ j), add an S-polynomial S-pol(£i, g iy £ 2 , 9j) 
to A for each overlap £i~LM(gi)ri = £ 2 LM(gj)r 2 between the lead monomials of LM(^) 
and LM(^). 

while (A is not empty) do 

Remove the first entry S\ from A; 
s[ = Rem(si, G)\ 
if (si ^ 0) then 

Add s[ to G and then (for all gi G G) add all the S-polynomials of the form 

S-pol(£i, gi,£ 2 , s[) to A; 
end if 
end while 
return G; 



Structurally, Mora's algorithm is virtually identical to Buchberger's algorithm, in that we 
compute and reduce each S-polynomial in turn; we add a reduced S-polynomial to our 
basis if it does not reduce to zero; and we continue until all S-polynomials reduce to zero 
- exactly as in Algorithm 3. Despite this, there are major differences from an implemen- 
tation standpoint, not least in the fact that noncommutative polynomials are much more 
difficult to handle on a computer; and noncommutative S-polynomials need more com- 
plicated data structures. This may explain why implementations of the noncommutative 
Grobner Basis algorithm are currently sparser than those for the commutative algorithm; 
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and also why such implementations often impose restrictions on the problems that can 
be handled — Bergman [6] for instance only allows input bases which are homogeneous. 

3.2.1 Termination 

In the commutative case, Dickson's Lemma and Hilbert's Basis Theorem allow us to prove 
that Buchberger's algorithm always terminates for all possible inputs. It is a fact however 
that Mora's algorithm does not terminate for all possible inputs (so that an ideal may have 
an infinite Grobner Basis in general) because there is no analogue of Dickson's Lemma 
for noncommutative monomial ideals. 

Proposition 3.2.1 Not all noncommutative monomial ideals are finitely generated. 

Proof: Assume to the contrary that all noncommutative monomial ideals are finitely 
generated, and consider an ascending chain of such ideals J\ C J 2 C • ■ • . By our assump- 
tion, the ideal J = UJj (for i ^ 1) will be finitely generated, which means that there 
must be some k ^ 1 such that = Jf.+i = ■ ■ ■ . For a counterexample, let 1Z = Q(x, y) 
be a noncommutative polynomial ring, and define J, (for % ^ 1) to be the ideal in 1Z 
generated by the set of monomials {xyx, xy 2 x, . . . , xy l x\. Because no member of this set 
is a multiple of any other member of the set, it is clear that there cannot be a k ^ 1 such 
that Jfc = Jfc + i = • • • because xy k+l x G Jk+i and xy k+1 x ^ Jk for all k ^ 1. □ 

Another way of explaining why Mora's algorithm does not terminate comes from consid- 
ering the link between noncommutative Grobner Bases and the Knuth-Bendix Critical 
Pairs Completion Algorithm for monoid rewrite systems [39] , an algorithm that attempts 
to find a complete rewrite system for any given monoid presentation. Because Mora's 
algorithm can be used to emulate the Knuth-Bendix algorithm (for the details, see for 
example [33]), if we assume that Mora's algorithm always terminates, then we have found 
a way to solve the word problem for monoids (so that we can determine whether any word 
in a given monoid is equal to the identity word); this however contradicts the fact that 
the word problem is actually an unsolvable problem (so that it is impossible to define an 
algorithm that can tell whether two words in a given monoid are identical). 
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3.3 Reduced Grobner Bases 

Definition 3.3.1 Let G = {gi, . . . , g p } be a Grobner Basis for an ideal over a polynomial 
ring R(xi, . . . , x n ). G is a reduced Grobner Basis if the following conditions are satisfied. 

(a) LC(#j) = 1 R for all g { G G. 

(b) No term in any polynomial ^ G G is divisible by any LT(pj), j 7^ f. 

Theorem 3.3.2 // i/iere exists a Grobner Basis G for an ideal J over a noncommutative 
polynomial ring, then J has a unique reduced Grobner Basis. 

Proof: Existence. We claim that the following procedure transforms G into a reduced 
Grobner Basis G' . 

(i) Multiply each gi G G by LC(#i) -1 . 

(ii) Reduce each G G by G \ removing from G all polynomials that reduce to 
zero. 

It is clear that G' satisfies the conditions of Definition 3.3.1, so it remains to show that 
G' is a Grobner Basis, which we shall do by showing that the application of each step of 
instruction (ii) above produces a basis which is still a Grobner Basis. 

Let G = {g±, . . . , g p } be a Grobner Basis, and let g[ be the reduction of an arbitrary 
gi G G with respect to G \ {gi}, carried out as follows (the £k and the are terms). 

K 

9i = 9i-^2hg jk r k - (3.1) 

k=l 

Set H = (G\{#i})U{#-} if g[ ^ 0, and set H = G\{^} if g[ = 0. As G is a Grobner Basis, 
all S-polynomials involving elements of G reduce to zero using G, so there are expressions 

CbLg a r a ~ c a l h g b r b - ^ L9cJ u = (3.2) 

u=l 

for every S-polynomial S-pol(£ a , g a , £ b , g b ) = c b £ a g a r a - c a £ b g b r b , where c a = LG(g a ); c b = 
LC(g b ); the £ u and the r u are terms (for 1 ^ u ^ /i); and g a , g b , g Cu G G. To show that H is 
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a Grobner Basis, we must show that all S-polynomials involving elements of H reduce to 
zero using H. For polynomials g a ,gb G H not equal to g[, we can reduce an S-polynomial 
of the form S-pol(£ a , g a , £b, Qb) using the reduction shown in Equation (3.2), substituting 
for <7i from Equation (3.1) if any of the g Cu in Equation (3.2) are equal to gi. This gives a 
reduction to zero of S-pol(£ a , g a , £b, gb) in terms of elements of H. 

If g[ = 0, our proof is complete. Otherwise consider all S-polynomials S-pol(^, g[, £b, gb) 
involving the pair of polynomials {g[, gb), where gb G G\ {gi}. We claim that there exists 
an S-polynomial S-pol(£i, gi, £ 2 , gb) = Cb£\giT\ — Ci£ 2 gbr 2 such that S-pol(£^, g[, £b, gb) = 
Cb£ig' i r 1 — c i £ 2 5 , fe r 2- To prove this claim, it is sufficient to show that LT(gj) = LT^'). 
Assume for a contradiction that LT(gfj) 7^ LT (g-). It follows that during the reduction of 
gi we were able to reduce its lead term, so that LT(gi) = £LT (gj)r for some terms £ and r 
and some gj G G. Because LM(gfj — £gf) < LM(gj), the polynomial gi — £gf must reduce 
to zero without using g^, so that g[ = 0, giving a contradiction. 

It remains to show that S-pol(^, g[, £b, gb) 0. We know that S-pol(£i, g iy £ 2 , gb) = 
Cb£igiri-Ci£ 2 g b r2 *g 0, and Equation (3.2) tells us that c b £ x g i rx-Ci£ 2 g h r 2 -YTu=i £ u g c J u = 
0. Substituting for gi from Equation (3.1), we obtain 1 



which implies that S-pol(^, g[, £b, gb) —>h 0. The only other case to consider is the case of 
an S-polynomial coming from a self overlap involving LM(g-). But because we now know 
that LT(gQ = LT(gj), we can use exactly the same argument as above to show that the 
S-polynomial S-pol(^i, g[, £ 2 , <?•) reduces to zero using H because an S-polynomial of the 
form S-pol(£i, gi, £ 2 , gi) will exist. 

Uniqueness. Assume for a contradiction that G = {g\, . . . , g p } and H = {hi, . . . , h q } are 
two reduced Grobner Bases for an ideal J, with G 7^ H. Let g^ be an arbitrary element 
from G (where 1 ^ i ^ p). Because gi is a member of the ideal, then gi must reduce 
to zero using H (H is a Grobner Basis). This means that there must exist a polynomial 

Substitutions for <^ may also occur in the summation ^2 u —i&u9c u f*u 

; these substitutions have not 

been considered in the displayed formulae. 




or 
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hj G if such that LT(hj) | LT(». If 1,1%) ^ LT(», then £ x LT(^) x r = LT(^) for 
some monomials £ and r, at least one of which is not equal to the unit monomial. But hj 
is also a member of the ideal, so it must reduce to zero using G. Therefore there exists 
a polynomial gk G G such that LT(gk) \ LT (hj), which implies that LT(gk) | LT(gi), with 
k 7^ i. This contradicts condition (b) of Definition 3.3.1 so that G cannot be a reduced 
Grobner Basis for J if LT (hj) ^ LT(gi). From this we deduce that each gi G G has a 
corresponding hj G if such that LT(gi) = LT(hj). Further, because G and if are assumed 
to be reduced Grobner Bases, this is a one-to-one correspondence. 

It remains to show that if LT(pj) = LT(hj), then g^ = hj. Assume for a contradiction 
that gt 7^ hj and consider the polynomial gi — fyj. Without loss of generality, assume 
that LM(<7j — hj) appears in gi. Because g\ — hj is a member of the ideal, then there is a 
polynomial gk G G such that LT (gk) | LT(<7, — /ij). But this again contradicts condition 
(b) of Definition 3.3.1, as we have shown that there is a term in gi that is divisible by 
LT (gk) for some k ^ i. It follows that G cannot be a reduced Grobner Basis if 7^ hj, 
which means that G = H and therefore reduced Grobner Bases are unique. □ 

As in the commutative case, we may refine the procedure for finding a unique reduced 
Grobner Basis (as given in the proof of Theorem 3.3.2) by removing from the Grobner 
Basis all polynomials whose lead monomials are multiples of the lead monomials of other 
Grobner Basis elements. This leads to the definition of Algorithm 6. 

3.4 Improvements to Mora's Algorithm 

In Section 2.5, we surveyed some of the numerous improvements of Buchberger's algo- 
rithm. Let us now demonstrate that many of these improvements can also be applied in 
the noncommutative case. 

3.4.1 Buchberger's Criteria 

In the commutative case, Buchberger's first criterion states that we can ignore any S- 
polynomial S-pol(/, g) in which lcm(LM(/), LM(gf)) = LM(/)LM(g). In the noncommuta- 
tive case, this translates as saying that we can ignore any 'S-polynomial' S-pol(£i, /, £2, g) = 
LC(g)£ifri — LC(f)i2gr 2 such that LM(/) and LM(g) do not overlap in the monomial 
£iLM(f)r\ = £2LM(g)r2- We can certainly show that such an 'S-polynomial' will reduce 
to zero by utilising Proposition 3.1.4, but we will never be able to use this result as, by 
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Algorithm 6 The Noncommutative Unique Reduced Grobner Basis Algorithm 

Input: A Grdbner Basis G = {gi, g 2 , . . . , g m } for an ideal J over a noncommutative 

polynomial ring R(x\, . . .x n ); an admissible monomial ordering O. 
Output: The unique reduced Grobner Basis G' = {g[, g' 2 , . . . , g' p } for J. 

G" = 0; 

for each gi E G do 

Multiply 9i by LCfo)" 1 ; 

if (LM(g'j) = £LM(gj)r for some monomials £, r and some gj E G (gj ^ g^) then 

G = G\{ 9l }; 
end if 
end for 

for each gi E G do 

^ = Rem(^,(G\{^})UG'); 

G = G\{ 9i }; G' = G>U{g>}; 
end for 
return G'; 



definition, an S-polynomial is only defined when we have an overlap between LM(/) and 
LM(g). It follows that an 'S-polynomial' of the above type will never occur in Mora's 
algorithm, and so Buchberger's first criterion is redundant in the noncommutative case. 
The same cannot be said of his second criterion however, which certainly does improve 
the efficiency of Mora's algorithm. 

Proposition 3.4.1 (Buchberger's Second Criterion) Let f , g and h be three mem- 
bers of a finite set of polynomials P over a noncommutative polynomial ring, and consider 
an S-polynomial of the form 

S-pol(4, /, i 2 , g) = c 2 hfri - c 1 e 2 gr 2 - (3.3) 

IfLM(h) | £iLM(/>i, so that 

£ 1 LM(/)r 1 = £ 3 LM(h)r 3 = £ 2 LM(g)r 2 (3.4) 

for some monomials £3^3, then S-pol(^i, f,£ 2 ,g) — >p if all S-polynomials corresponding 
to overlaps (as placed in the monomial £iLM(f)ri) between LM(h) and either LM(/) or 
LM(g) reduce to zero using P. 
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Proof (cf. [37], Appendix A): To be able to describe an S-polynomial corresponding 
to an overlap (as placed in the monomial iiLM(f)ri) between LM(/i) and either LM(/) 
or LM(g), we introduce the following notation. 

• Let £ 13 be the monomial corresponding to the common prefix of i\ and £3 of maximal 
degree, so that £\ = £13^ and £3 = ^13^3. (Here, and similarly below, if there is no 
common prefix of £\ and £3, then £13 = 1, £[ = £\ and £ f 3 = £3.) 

• Let £23 be the monomial corresponding to the common prefix of £2 and £3 of maximal 
degree, so that £ 2 = ^23^2 an d ^3 = ^23^3- 

• Let r 13 be the monomial corresponding to the common suffix of T\ and r 3 of maximal 
degree, so that r x = r[r 13 and r 3 = r' 3 r 13. 

• Let r 23 be the monomial corresponding to the common suffix of r 2 and r 3 of maximal 
degree, so that r 2 = r 2 'r 2 3 and r 3 = r 3 V 23 . 

We can now manipulate Equation (3.3) as follows (where c 3 = LC(h)). 

c 3 (S-pol(£i, /, £ 2 , g)) = c 3 c 2 £ifri - C3C!£ 2 gr2 

= C3C 2 £ifr 1 - cic 2 £ 3 /ir 3 + cic 2 £ 3 /ir 3 - c 3 c 1 £ 2 gr2 
= c 2 (c 3 £ifr 1 - ci£ 3 /ir 3 ) - Ci(c 3 £ 2 £fr 2 - c 2 £ 3 /ir 3 ) 
= c 2 {c 3 £ 13 £' 1 fr' 1 r 13 - c^^hr^r^) 

- ci(c 3 £ 2 3£ 2 5fr 2 V 2 3 - c 2 £ 23 £ 3 hr 3 r 2 3) 
= c 2 e 13 (c 3 £'Jr' 1 - Cl l' z hr' 3 )r 13 - c^^gr'i ~ c^'K)^. 

As placed in £iLM(f)ri = ^3LM(/i)r 3 , if LM(/) and LM(h) overlap, then the S-polynomial 
corresponding to this overlap is 2 S-pol^, /, £' 3 , h). Similarly, if LM(g) and LM(h) overlap 
as placed in £ 2 LM(g)r 2 = £ 3 LM(/i)r 3 , then the S-polynomial corresponding to this overlap 
is S-pol(£ 2 , g, £ 3 , h). By assumption, these S-polynomials reduce to zero using P, so there 
are expressions 

a 

c&^iM - ci£ 3 /ir 3 - ^ U iPi V i = ( 3 - 5 ) 
i=l 

2 For completeness, we note that the S-polynomial corresponding to the overlap can also be of the form 
S-pol(^3, h, £[, /); this (inconsequentially) swaps the first two terms of Equation (3.5). 
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and 



(3.6) 



where the Ui, Vi, Uj and vj are terms; and pi,pj G P for all i and j. Using Proposition 
3.1.4, we can state that these expressions will still exist even if LM(/) and LM(/i) do not 
overlap as placed in £iLM(/)ri = £ 3 LM(h)r 3 ; and if LM(g) and LM(h) do not overlap as 
placed in £ 2 \M(g)r 2 = £ 3 LM(h)r 3 . It follows that 



c 3 ($-po\(£ u /, 4, g)) = c 2 £ 13 (c 3 £'Jr[ - Cl £' 3 hr' 3 )r 13 - c^cdWi ~ C2%hr%)r w 



To conclude that the S-polynomial S-pol(£i, /, £ 2 , g) reduces to zero using P, it remains 
to show that the algebraic expression — Ylt=i < h lc 2^\?,u(PiVir V3 + Ylj=i c 3 lc i^23UjPjVjr 23 
corresponds to a valid reduction of S-po\(£i, f,£ 2 , g). To do this, it is sufficient to show 
that no term in either of the summations is greater than the term £iLM(/)ri (so that 
LM(£ 13 UiPiVir 13 ) < £ 1 LM(f)r 1 and LM(£ 23 UjPjVjr 23 ) < £ 1 LM(f)r 1 for all % and j). But 
this follows from Equation (3.4) and from the fact that the reductions of the expressions 
c 3 £ifr[ — c\£' 3 hr' 3 and c 3 £ 2 gr 2 — c 2 £ 3 hr 3 in Equations (3.5) and (3.6) are valid, so that 
LM(uiPiVi) < LM(^i/ri) and LM(« J p J t; i ) < LM(£ 2 gr 2 ) for all i and j. □ 

Remark 3.4.2 The three polynomials /, g and h in the above proposition do not neces- 
sarily have to be distinct (indeed, / = g = h is allowed) — the only restriction is that the 
S-polynomial S-pol(£i, /, £ 2 , g) has to be different from the S-polynomials S-pol^, /, £ 3 , h) 
and S-pol(^2, g, £ 3 , h); for example, if / = h, then we cannot have £[ = £ 3 . 

3.4.2 Homogeneous Grobner Bases 

Because it is computationally more expensive to do noncommutative polynomial arith- 
metic than it is to do commutative polynomial arithmetic, gains in efficiency due to 
working with homogeneous bases are even more significant in the noncommutative case. 
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For this reason, some systems for computing noncommutative Grobner Bases will only 
work with homogeneous input bases, although (as in the commutative case) it is still 
sometimes possible to use these systems on non-homogeneous input bases by using the 
concepts of homogenisation, dehomogenisation and extendible monomial orderings. 

Definition 3.4.3 Let p = po + ■ ■ ■ + p m be a polynomial over the polynomial ring 
R{xi, . . . , x n ), where each pi is the sum of the degree i terms in p (we assume that 
Pm 7^ 0). The left homogenisation of p with respect to a new (homogenising) variable y is 
the polynomial 

h t (p) := y m p + y m ~ x p\ H V yp m -i + Pm\ 

and the right homogenisation of p with respect to a new (homogenising) variable y is the 
polynomial 

Kip) '■= PoV m + P\V m ~ X H V Pm-xV + Pm- 

Homogenised polynomials belong to polynomial rings determined by where y is placed in 
the lexicographical ordering of the variables. 

Definition 3.4.4 The dehomogenisation of a polynomial p is the polynomial d(p) given 
by substituting y — 1 in p, where y is the homogenising variable. 

Definition 3.4.5 A monomial ordering O is extendible if, given any polynomial p = 
t\ + ■ ■ ■ + t a ordered with respect to O (where t\ > • • • > t a ), the homogenisation of p 
preserves the order on the terms (t^ > t' i+1 for all 1 ^ i ^ a — 1, where the homogenisation 
process maps the term t i G p to the term £•). 

In the noncommutative case, an extendible monomial ordering must specify how to ho- 
mogenise a polynomial (by multiplying with the homogenising variable on the left or on 
the right) as well as stating where the new variable y appears in the ordering of the vari- 
ables. Here are the conventions for those monomial orderings defined in Section 1.2.2 that 
are extendible, assuming that we start with a polynomial ring R(x\, . . . , x n ). 



Monomial Ordering 


Type of Homogenisation 


Position of the new variable y 
in the ordering of the variables 


InvLex 


Right 


y < Xi for all x« 


DegLex 


Left 


y < Xi for all Xi 


DeglnvLex 


Left 


y > Xi for all x» 


DegRevLex 


Right 


y > Xi for all Xi 
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Noncommutativity also provides the possibility of the new variable y becoming 'trapped' 
in the middle of some monomial forming part of a polynomial computed during the course 
of Mora's algorithm. For example, working with DegRevLex, consider the homogenised 
polynomial h r (xf + x\) = x\ + x\y and the S-polynomial 

S-pol(x!, x\ + x ± y, 1, x\ + xiy) = Xi{x\ + x x y) - (x\ + x x y)xi = x\y - x 1 yx 1 . 

Because y appears in the middle of the monomial xiyxi, the S-polynomial does not 
immediately reduce to zero as it does in the non- homogenised version of the S-polynomial, 

S-pol(a;i, x\ + xi, 1, x\ + x±) = x±(x 1 + x±) — (x\ + x\)xi = 0. 

We must therefore make certain that y only appears on one side of any given mono- 
mial by introducing the set of polynomials H = {hi, h 2 , . . . , h n } = {yx± — x±y, yx 2 — 
x 2 y, . . • , yx n — x n y} into our initial homogenised basis, ensuring that y commutes with 
all the other variables in the polynomial ring. This way, the first S-polynomial will reduce 
to zero as follows: 

x\y - xxyxi x\y - x\y = 0. 

Which side y will appear on will be determined by whether LM(yx,i — Xiy) = yxi or 
LM(yXi — Xiy) = Xiy in our chosen monomial ordering (pushing y to the right or to the 
left respectively). This side must match the method of homogenisation, which explains 
why Lex is not an extendible monomial ordering — for Lex to be extendible, we must 
homogenise on the right and have y < X{ for all Xj, but then because LM(?/Xj — Xiy) = Xiy 
with respect to Lex, the variable y will always in practice appear on the left. 

Definition 3.4.6 Let F = . . . , f m } be a non-homogeneous set of polynomials over 
the polynomial ring R(x±, . . . ,x n ). To compute a Grobner Basis for F using a program 
that only accepts sets of homogeneous polynomials as input, we use the following proce- 
dure (which will only work in conjunction with an extendible monomial ordering). 

(a) Construct a homogeneous set of polynomials F' = {hi(fi),...,he(f m )} or F' = 
{h r (fi), . . . , h r (f m )} (dependent on the monomial ordering used). 

(b) Compute a Grobner Basis G' for the set F' U H, where H = {yxi — x±y, yx 2 — 
X2U, yx n - x n y}. 

(c) Dehomogenise each polynomial g' G G' to obtain a Grobner Basis G for F, noting 
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that no polynomial originating from H will appear in G (d(hi) = for all hi G H). 
3.4.3 Selection Strategies 

As in the commutative case, the order in which S-polynomials are processed during Mora's 
algorithm has an important effect on the efficiency of the algorithm. Let us now generalise 
the selection strategies defined in Section 2.5.3 for use in the noncommutative setting, 
basing our decisions on the overlap words of S-polynomials. 

Definition 3.4.7 The overlap word of an S-polynomial S-pol(£i, f,£ 2 ,g) — f->C(g)£ifri — 
LC(f)£ 2 gr 2 is the monomial £ x lM{f)r x (= £ 2 LM(g)r 2 ). 

Definition 3.4.8 In the noncommutative normal strategy, we choose an S-polynomial to 
process if its overlap word is minimal in the chosen monomial ordering amongst all such 
overlap words. 

Definition 3.4.9 In the noncommutative sugar strategy, we choose an S-polynomial to 
process if its sugar (a value associated to the S-polynomial) is minimal amongst all such 
values (we use the normal strategy in the event of a tie). 

The sugar of an S-polynomial is computed by using the following rules on the sugars 
of polynomials we encounter during the computation of a Grobner Basis for the set of 
polynomials F = {f u . . . , f m }. 

(1) The sugar Sug^. of a polynomial f G F is the total degree of the polynomial fi (which 
is the degree of the term of maximal degree in fi). 

(2) If p is a polynomial and if t\ and t 2 are terms, then Sug tipt2 = deg(ii) + Sug p + deg(t2)- 

(3) If p = pi + pa, then Sug p = max(Sug pi , Sug p2 ). 

It follows that the sugar of the S-polynomial S-pol^i, <7, £2, h) = LG(h)£igri — LC(g)£ 2 hr 2 
is given by the formula 



Su gs-poi(<i,ffA,fc) = max ( de g(^i) + Su g 9 + de gOi) 5 deg(£ 2 ) + Sug h + deg(r 2 )). 
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3.4.4 Logged Grobner Bases 

Definition 3.4.10 Let G = {g±, . . . ,g p } be a noncommutative Grobner Basis computed 
from an initial basis F = {f\, . . . , f m }. We say that G is a Logged Grobner Basis if, for 
each gi e G, we have an explicit expression of the form 

& 

g% = ^ ^ £gfk a r ay 
a=l 

where the l a and the r a are terms and fk a G F for all 1 ^ a ^ /3. 

Proposition 3.4.11 Let F = {fi, . . . , f m } be a finite basis over a noncommutative poly- 
nomial ring. If we can compute a Grobner Basis for F, then it is always possible to 
compute a Logged Grobner Basis for F. 

Proof: We refer to the proof of Proposition 2.5.11, substituting 

P 

S-pol(4,/i,4,/y)-X; 

a=l 

for f m +i (the £ a and the r a are terms). □ 

3.5 A Worked Example 

To demonstrate Mora's algorithm in action, let us now calculate a Grobner Basis for the 
ideal J generated by the set of polynomials F := f 2 , fe} = {xy — z, yz + 2x + z, yz + x} 
over the polynomial ring Q(x,y,z). We shall use the DegLex monomial ordering (with 
x > y > z); use the normal selection strategy; calculate a Logged Grobner Basis; and use 
Buchberger's criteria. 

3.5.1 Initialisation 

The first part of Mora's algorithm requires us to find all the overlaps between the lead 
monomials of the three polynomials in the initial basis G := {gi,g2,gs} = {xy — z,yz + 
2x + z,yz + x}. There are three overlaps in total, summarised by the following table. 
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Overlap 1 


Overlap 2 


Overlap 3 


Overlap Word 


yz 


sej/z 


xyz 


Polynomial 1 


yz + 2x + z 


xy — z 


xy — z 


Polynomial 2 


yz + x 


yz + 2x + z 


yz + x 


ti 


1 


1 


1 


n 


1 


z 


z 


£ 2 


1 


X 


X 


r 2 


1 


1 


1 


Degree of Overlap Word 


2 


3 


3 



Because we are using the normal selection strategy, it is clear that Overlap 1 will appear 
in the list A first, but we are free to choose the order in which the other two overlaps 
appear (because their overlap words are identical). To eliminate this choice, we will use 
the following tie-breaking strategy to order any two S-polynomials whose overlap words 
are identical. 

Definition 3.5.1 Let s\ = S-pol(£i, g a , £ 2 , gb) and s 2 = S-pol(^ 3 , g c , £4, g^) be two S- 
polynomials with identical overlap words, where g a , gb, g c , 9<i £ G = {gx, . . . , g a }. Assum- 
ing (without loss of generality) that a < b and c < d, the tie-breaking strategy places s\ 
before S2 in A if a < c or if a = c and b ^ d; and later in A otherwise. 

Applying the tie-breaking strategy for Overlaps 2 and 3, it follows that Overlap 2 = 
S-pol(l, <7i, x, g 2 ) will appear in A before Overlap 3 = S-pol(l, gi, x, c/3). 

Before we start the main part of the algorithm, let us note that for the Logged Grobner 
Basis, we begin the algorithm with trivial expressions for each of the three polynomials 
in the initial basis G in terms of the polynomials of the input basis F: g± = xy — z = j\; 

g 2 = yz + 2x + z = f 2 ; and g 3 = yz + x = f 3 . 

3.5.2 Calculating and Reducing S-polynomials 

The first S-polynomial to analyse corresponds to Overlap 1 and is the polynomial 

l(yz + 2x + z) 1 — l(yz + x)l = 2x + z — x = x + z. 

This polynomial is irreducible with respect to G, and so we add it to G to obtain a new 
basis G = {xy — z, yz+2x + z, yz+x, x+z} = {gi,g 2 , #3, g^}. Looking for overlaps between 
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the lead monomial of x + z and the lead monomials of the four elements of G, we see that 
there is one such overlap (with gi) whose overlap word has degree 2, so this overlap is 
added to the beginning of the list A to obtain A = {S-pol(l, xy — z, l,x + z), S-po\(l,xy — 
z, x, yz + 2x + z), S-pol(l, xy — z, x, yz + x)}. As far as the Logged Grobner Basis goes, 
g 4 = x + z = l(yz + 2x + z)l - l(yz + x)l = f 2 - f 3 - 

The next entry in A produces the polynomial 

l(xy — z)l — l(x + z)y = —zy — z. 

As before, this polynomial is irreducible with respect to G, so we add it to G as the fifth 
element. There are also four overlaps between the lead monomial of — zy — z and the lead 
monomials of the five polynomials in G: 





Overlap 1 


Overlap 2 


Overlap 3 


Overlap 4 


Overlap Word 


zyz 


zyz 


yzy 


yzy 


Polynomial 1 


yz + 2x + z 


yz + x 


yz + 2x + z 


yz + x 


Polynomial 2 


-zy - z 


-zy - z 


-zy - z 


-zy - z 


h 


z 


z 


1 


1 


n 


1 


1 


y 


y 




1 


1 


y 


y 


r 2 


z 


z 


i 


i 


Degree of Overlap Word 


3 


3 


3 


3 



Inserting these overlaps into the list A, we obtain 

A = { S-pol(2;, yz + 2x + z, 1, — zy — z), S-pol(z, yz + x, 1, — zy — z), 
S-pol(l, yz + 2x + z, y, -zy - z), S-pol(l, yz + x, y, -zy - z), 
S-pol(l, xy — z, x, yz + 2x + z), S-pol(l, xy — z, x, yz + x) }. 

The logged representation of the fifth basis element again comes straight from the S- 
polynomial (as no reduction was performed), and is as follows: g$ = —zy — z = l(xy — 

z)i-i(x + z) y = i(A)i - 1(/ 2 - h)y = h - hy + hv- 

The next entry in A yields the polynomial 



—z(yz + 2x + z) \ — l(—zy — z)z = —2zx — z 2 + z 2 = —2zx. 
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This time, the fourth polynomial in our basis reduces the S-polynomial in question, giving 
a reduction —2zx ^ 94 2z 2 . When we add this polynomial to G and add all five new 
overlaps to A, we are left with a six element basis G = {xy — z, yz + 2x + z, yz + x, x + 
z, —zy — z, 2z 2 } and a list 

A = { S-pol(l, 2z 2 , z, 2z 2 ), S-pol(z, 2z 2 , 1, 2z 2 ), 

S-pol(z, —27/ — 2, 1, 22 2 ), S-pol(z, 7/2 + X, 1, —27/ — z), 

S-pol(l, yz + 2x + z, y, 2z 2 ), S-pol(l, yz + x, y, 2z 2 ), 

S-pol(l, yz + 2x + z, y, -zy - z), S-pol(l, yz + x, y, -zy - z), 

S-pol(l, xy — z, x, yz + 2x + z), S-pol(l, xy — z, x, yz + x) }. 

We obtain the logged version of the sixth basis element by working backwards through 
our calculations: 

<? 6 = 2^ 2 

= —2zx + 2z[x + z) 

= (—z(yz + 2x + z)l — l(—zy — z)z) + 2z{x + z) 

= (-z(f 2 )-(fi-f2y + f 3 y)z) + 2z(f 2 -f 3 ) 

= -fiz + zf 2 + f 2 yz - 2zf 3 - f 3 yz. 
3.5.3 Applying Buchberger's Second Criterion 

The next three entries in A all yield S-polynomials that are either zero or reduce to 
zero (for example, the first entry corresponds to the polynomial 2(2z 2 )z — 2z(2z 2 )l = 
4z 3 — 4z 3 = 0). The fourth entry in A, S-po\(z,yz + x, 1, — zy — z), then enables us (for 
the first time) to apply Buchberger's second criterion, allowing us to move on to look 
at the fifth entry of A. Before we do this however, let us explain why we can apply 
Buchberger's second criterion in this particular case. 

Recall (from Proposition 3.4.1) that in order to apply Buchberger's second criterion for 
the S-polynomial S-po\(z,yz + x, 1, —zy — z), we need to find a polynomial g.i E G such 
that LM((/j) divides the overlap word of our S-polynomial, and any S-polynomials cor- 
responding to overlaps (as positioned in the overlap word) between LM(</j) and either 
LM(t/2 + x) or LM(— zy — z) reduce to zero using G (which will be the case if those 
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particular S-polynomials have been processed earlier in the algorithm). 

Consider the polynomial g 2 = yz + 2x + z. The lead monomial of this polynomial divides 
the overlap word zyz of our S-polynomial, which we illustrate as follows. 

LM(g 3 ) 

LM(g 5 ) 

z _y z_ 

LM(g 2 ) 

As positioned in the overlap word, we note that LM^) overlaps with both LM(gs) 
and LM(g 5 ), with the overlaps corresponding to the S-polynomials S-pol(l, g 2 , 1, #3) = 
S-pol(l, yz + 2x + z, 1, yz + x) and S-pol(z, g 2 , 1, #5) = S-pol(z, yz + 2x + 1, — — 
respectively. But these S-polynomials have been processed earlier in the algorithm (they 
were the first and third S-polynomials to be processed); we can therefore apply Buch- 
berger's second criterion in this instance. 

There are now six S-polynomials left in A, all of whom either reduce to zero or are 
ignored due to Buchberger's second criterion. Here is a summary of what happens during 
the remainder of the algorithm. 



S-polynomial 


Action 


S-pol(l, yz + 2x + z, y, 2z 2 ) 


Reduces to zero using the division algorithm 


S-pol(l, yz + x,y,2z 2 ) 


Ignored due to Buchberger's second criterion 




(using yz + 2x + z) 


S-pol(l, yz + 2x + z, y, —zy — z) 


Reduces to zero using the division algorithm 


S-pol(l,yz + a;,y, -zy - z) 


Ignored due to Buchberger's second criterion 




(using yz + 2x + z) 


S-pol(l, xy — z, x, yz + 2x + z) 


Ignored due to Buchberger's second criterion 




(using x + z) 


S-pol(l, xy — z, x, yz + x) 


Ignored due to Buchberger's second criterion 




(using yz + 2x + z) 



As the list A is now empty, the algorithm terminates with the following (Logged) Grobner 
Basis. 
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Input Basis F 


Grobner Basis G 


}\ = xy- z 


gi =xy-z = f x 




f 2 = yz + 2x + z 


g 2 = yz + 2x + z = f 2 




f 3 = yz + x 


g 3 = yz + x = f 3 






g 4 = X + Z = f 2 - f 3 






95 = -zy - z = f\- f 2 y 


+ hv 




g 6 = 2z 2 = -f x z + zf 2 + 


f 2 yz - 2z / 3 - f 3 yz 



3.5.4 Reduction 

Now that we have constructed a Grobner Basis for our ideal J, let us go on to find the 
unique reduced Grobner Basis for J by applying Algorithm 6 to G. 

In the first half of the algorithm, we must multiply each polynomial by the inverse of 
its lead coefficient and remove from the basis each polynomial whose lead monomial is a 
multiple of the lead monomial of some other polynomial in the basis. For the Grobner 
Basis in question, we multiply g$ by — 1 and g§ by |; and we remove g\ and g 2 from the 
basis (because LM(g'i) = LM(g 4 ) x y and LM(g 2 ) = LM(g 3 )). This leaves us with the 
following (minimal) Grobner Basis. 

Input Basis F Grobner Basis G 

/l = xy- Z g 3 = y Z + X = f 3 

f 2 = yz + 2x + z g A = x + z = f 2 - f 3 
f 3 = yz + x g 5 = zy + z = -f\ + f 2 y - f 3 y 
9a = z 2 = -\f\z + \zf 2 + \f 2 yz - zf 3 - \f 3 yz 

In the second half of the algorithm, we reduce each g%^G with respect to [G \ {gi}) UG', 
placing the remainder in the (initially empty) set G' and removing gi from G. For the 
Grobner Basis in question, we summarise what happens in the following table, noting that 
the only reduction that takes place is the reduction yz + x — j > gi yz + x — (x + z) = yz — z. 
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G 


G' 


9t 




{yz + x,x + z, zy + z, z 2 } 







yz + x 


yz- z 


{x + z, zy + z, z 2 } 


{yz - 


A 


X + z 


X + z 


{zy + z,z 2 } 


{yz - 


z,x + z} 


zy + z 


zy + z 


{z 2 } 


{yz- 


z,x + z, zy + z} 


z 2 


z 2 





{yz- 


z,x + z, zy + z, z 2 } 







We can now give the unique reduced (Logged) Grobner Basis for J. 



Input Basis F 


Unique Reduced Grobner Basis G' 


fx=xy-z 


yz - z = - f 2 + 2/ 3 


f 2 = yz + 2x + z 


x + z = f 2 - h 


f 3 = yz + x 


zy + z = -fi + fiy - hy 




z 2 = ~\f\z + \zf 2 + \hyz - zf 3 - \hyz 



Chapter 4 



Commutative Involutive Bases 



Given a Grobner Basis G for an ideal J over a polynomial ring 7Z, we know that the 
remainder of any polynomial p G 1Z with respect to G is unique. But although this 
remainder is unique, there may be many ways of obtaining the remainder, as it is possible 
that several polynomials in G divide our polynomial p, giving several reduction paths for 
P- 

Example 4.0.2 Consider the DegLex Grobner Basis G := {<7i, #2, <?3} = {x 2 — 2xy + 
3, 2xy + y 2 + 5, |y 3 — |x + ^-y} over the polynomial ring 1Z := Q[x, ?/] from Example 
2.3.2, and consider the polynomial p := x 2 y + y 3 + 8y e 1Z. The remainder of p with 
respect to G is (so that p is a member of the ideal J generated by G) , but there are two 
ways of obtaining this remainder, as shown in the following diagram. 



x 2 y + y 3 + 8y 



(4.1) 



91 



92 



2xy 2 + y 3 + 5y 

92 





— \xy 2 + y 3 — \x + % 



92 



| y 3 _ | x + ^ 

93 



An Involutive Basis is a Grobner Basis G for J such that there is only one possible 
reduction path for any polynomial p G 1Z. In order to find such a basis, we must restrict 
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which reductions or divisions may take place by requiring, for each potential reduction of 
a polynomial p by a polynomial g^ G G (so that LM(p) = LM(^) x u for some monomial 
■u), some extra conditions on the variables in u to be satisfied, namely that all variables 
in u have to be in a set of multiplicative variables for gi, a set that is determined by a 
particular choice of an involutive division. 

4.1 Involutive Divisions 

In Definition 1.2.9, we saw that a commutative monomial u\ is divisible by another mono- 
mial w 2 if there exists a third monomial u% such that u\ = U2U3, we also introduced the 
notation u 2 \ u\ to denote that u 2 is a divisor of ui, a divisor we shall now refer to as a 
conventional divisor of U\. For a particular choice of an involutive division J, we say that 
U2 is an involutive divisor of u±, written u 2 |/ u±, if, given a partitioning (by /) of the 
variables in the polynomial ring into sets of multiplicative and nonmultiplicative variables 
for w 2 , all variables in w 3 are in the set of multiplicative variables for w 2 . 

Example 4.1.1 Let U\ := xy 2 z 2 \ u[ := x 2 yz and u 2 := xz be three monomials over the 
polynomial ring TZ := Q[x, y, z], and let an involutive division / partition the variables in 
TZ into the following two sets of variables for the monomial w 2 : multiplicative = {y,z}; 
nonmultiplicative = {x}. It is true that u 2 conventionally divides both monomials u\ and 
u[, but m 2 only involutively divides monomial u\ as, defining 113 := y 2 z and u' 3 := xy 
(so that U\ = u 2 uz and u\ = u 2 u' 3 ), we observe that all variables in u 3 are in the set of 
multiplicative variables for w 2 , but the variables in u' 3 (in particular the variable x) are 
not all in the set of multiplicative variables for w 2 . 

More formally, an involutive division / works with a set of monomials U over a polynomial 
ring R[xx, . . . , x n ] and assigns a set of multiplicative variables M.iiu, U) C {xi, . . . , x n } 
to each element u EU . It follows that, with respect to U, a monomial w is divisible by a 
monomial u E U ii w = uv for some monomial v and all the variables that appear in v 
also appear in the set A4i(u, U). 

Definition 4.1.2 Let M denote the set of all monomials in the polynomial ring 1Z = 
R[xi, . . . , x n ], and let U C M. The involutive cone Cj(u, U) of any monomial u G U with 
respect to some involutive division / is defined as follows. 

Ci(u, U) = {uv such that v G M and u \i uv}. 
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Remark 4.1.3 We may think of an involutive cone of a particular monomial u as con- 
taining all monomials that are involutively divisible by u. 

Up to now, we have not mentioned any restriction on how we may assign multiplicative 
variables to a particular set of monomials. Let us now specify the rules that ensure that a 
particular scheme of assigning multiplicative variables may be referred to as an involutive 
division. 

Definition 4.1.4 Let M denote the set of all monomials in the polynomial ring 1Z = 
R[xi, . . . , x n ]. An involutive division I on M is defined if, given any finite set of monomials 
U C M, we can assign a set of multiplicative variables A4j(u, U) C {xi, . . . , x n } to any 
monomial u G U such that the following two conditions are satisfied. 

(a) If there exist two monomials u±, u 2 G U such that Ci(ux, U) PI Ci(u2, U) ^ 0, 
then either Ci(ui, U) C Ci(u 2 , U) or C/(u 2 , U) C Cj{u\, U). 

(b) If V C U, then Mi(v, U) C M^v, V) for all v G V. 

Remark 4.1.5 Informally, condition (a) above ensures that a monomial can only appear 
in two involutive cones Ci(ui,U) and Cj(u 2 ,U) if u\ is an involutive divisor of u 2 or 
vice-versa; while condition (b) ensures that the multiplicative variables of a polynomial 
v G V C U with respect to U all appear in the set of multiplicative variables of v with 
respect to V . 

Definition 4.1.6 Given an involutive division /, the involutive span Ci(U) of a set of 
monomials U with respect to / is given by the expression 

d(U) = {Jb(u,U). 

Remark 4.1.7 The (conventional) span of a set of monomials U is given by the expression 

C{U)= \JC(u,U), 

where C(u, U) = {uv \ v is a monomial} is the (conventional) cone of a monomial u E U . 

Definition 4.1.8 If an involutive division / determines the multiplicative variables for a 
monomial u G U independent of the set U, then J is a global division. Otherwise, I is a 
local division. 
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Remark 4.1.9 The multiplicative variables for a set of polynomials P (whose terms are 
ordered by a monomial ordering O) are determined by the multiplicative variables for the 
set of leading monomials LM(P). 

4.1.1 Involutive Reduction 

In Algorithm 7, we specify how to involutively divide a polynomial p with respect to a 
set of polynomials P. 

Algorithm 7 The Commutative Involutive Division Algorithm 

Input: A nonzero polynomial p and a set of nonzero polynomials P = {pi, . . . , p m } over a 
polynomial ring R[ admissible monomial ordering O; an involutive division 

I. 

Output: Rem/(p, P) := r, the involutive remainder of p with respect to P. 
r = 0; 

while (p 0) do 

u = LM(p); c = LC(p); j = 1; found = false; 
while (j ^ m) and (found == false) do 

if (LM(pj) |/ u) then 

found = true; it' = u/LM(pj); p = p — (cLC(pj) -1 )pju'; 

else 

J =j + i; 

end if 
end while 

if (found == false) then 

r = r + LT(p); p = p — LT(p); 

end if 
end while 
return r; 



Remark 4.1.10 The only difference between Algorithms 1 and 7 is that the line "if 
(LM(pj) | u) then" in Algorithm 1 has been changed to the line "if (LM(pj) \j u) then" 
in Algorithm 7. 

Definition 4.1.11 If the polynomial r is obtained by involutively dividing (with respect 
to some involutive division /) the polynomial p by one of (a) a polynomial q; (b) a sequence 
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of polynomials qi,Q2, ■ • ■ ,Qa] or ( c ) a set of polynomials Q, we will use the notation 
p — r; p — j-*- r and p — r respectively (matching the notation introduced in 
Definition 1.2.16). 

4.1.2 Thomas, Pommaret and Janet divisions 

Let us now consider three different involutive divisions, all named after their creators in 
the theory of Partial Differential Equations (see [52], [47] and [35]). 

Definition 4.1.12 (Thomas) Let U = {u±, . . . , u m } be a set of monomials over a poly- 
nomial ring R[x\, . . . , x n ], where the monomial Uj G U (for 1 «C j ' ^ m) has corresponding 
multidegree (ej, e|, . . . , e" ). The Thomas involutive division T assigns multiplicative vari- 
ables to elements of U as follows: the variable x« is multiplicative for monomial Uj (written 
X{ G Air(uj, U)) if e* = max fc e\ for all 1 ^ k ^ m. 

Definition 4.1.13 (Pommaret) Let u be a monomial over a polynomial ring 
R[xi, . . . , x n ] with multidegree (e 1 , e 2 , . . . , e n ). The Pommaret involutive division V as- 
signs multiplicative variables to u as follows: if 1 ^ % ^ n is the smallest integer such that 
e* > 0, then all variables Xi, x%, . . . , Xi are multiplicative for u (we have Xj G .M-p(u) for 
all 1 ^ j ^ i). 

Definition 4.1.14 (Janet) Let U = {u\, . . . ,u m } be a set of monomials over a polyno- 
mial ring R[x\, . . . ,x n ], where the monomial Uj G U (for 1 ^ j ^ m) has corresponding 
multidegree (e],e|, . . . ,e"). The Janei involutive division assigns multiplicative vari- 
ables to elements of U as follows: the variable x n is multiplicative for monomial Uj (written 
x n G M. j(uj, U)) if e™ = maxfc e£ for all 1 ^ k ^ m; the variable Xj (for 1 ^ z < n) is mul- 
tiplicative for monomial Uj (written Xi G A4j(iij,U)) if e* = max^ e' fc for all monomials 
Uk G U such that e'- = e l k for all z < I ^ n. 

Remark 4.1.15 Thomas and Janet are local involutive divisions; Pommaret is a global 
involutive division. 

Example 4.1.16 Let U := {x 5 y 2 z, x A yz 2 , x 2 y 2 z, xyz 3 , xz 3 , y 2 z, z} be a set of mono- 
mials over the polynomial ring Q[x,y,z], with x > y > z. Here are the multiplicative 
variables for U according to the three involutive divisions defined above. 
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Monomial 


Thomas 


Pommaret 


Janet 


^ 9 

x y z 


{z, y} 


{*} 


{x, y} 


4 2 

x yz 





{*} 


{x,y} 


2 2 

x y z 


M 


{*} 


{y} 


xyz 3 


{4 


{x} 


{x,y, z} 




{4 


{x} 


{x,z} 




M 


{x,y} 


{y} 


z 





{x,y,z} 


{x} 



Proposition 4.1.17 All three involutive divisions defined above satisfy the conditions of 
Definition 4-1-4- 

Proof: Throughout, let M denote the set of all monomials in the polynomial ring 
1Z = R[xi, . . . , x n }; let U = {u±, . . . , u m } C M be a set of monomials with corresponding 
multidegrees (e\, el, ... , e£) (where 1 ^ k ^ m); let itj, Uj G U (where 1 ^ i, j ^ m, i ^ j); 
and let m 1; m 2 G M be two monomials with corresponding multidegrees (/*, , . . . , /") 
and (/g , /|, • • • , /^). For condition (a), we need to show that if there exists a monomial 
m G M such that m\Ui = m = m 2 Uj and all variables in m\ and m 2 are multiplicative 
for u,i and Uj respectively, then either Ui is an involutive divisor of Uj or vice-versa. For 
condition (b), we need to show that all variables that are multiplicative for U{ G U are 
still multiplicative for Ui G V C [/. 

Thomas, (a) It is sufficient to prove that U{ = Uj. Assume to the contrary that Ui ^ Uj, 
so that there is some 1 ^ k ^ n such that e\ ^ e|. Without loss of generality, assume 
that e\ < e k y Because e\ + /* = + /|, it follows that /* > so that the variable x k 
must be multiplicative for the monomial Wj. But this contradicts the fact that x k cannot 
be multiplicative for itj in the Thomas involutive division because > e\ . We therefore 
have Ui = Uj. 

(b) By definition, if Xj G Aiq-(ui,U), then e\ = max^e^ for all u k G U. Given a set 
V C [/, it is clear that e\ = maxj. e^. for all u k G V, so that Xj G M.r{ u ii V) as required. 

Pommaret. (a) Let a and /? (1 ^ a, (3 ^ n) be the smallest integers such that ef > and 
ej>0 respectively, and assume (without loss of generality) that a ^ (3. By definition, 
we must have f± = f$ = for all a < k ^ n because the x k are all nonmultiplicative for 
Ui and Uj. It follows that = for all a < k ^ n. If a — [3, then it is clear that itj is 
an involutive divisor of itj if ef < e", and «j is an involutive divisor of U{ if ef > e". If 
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a > f3, then f% = as variable x a is nonmultiplicative for Uj, so it follows that ef ^ e" 
and hence it, is an involutive divisor of Uj. 

(b) Follows immediately because Pommaret is a global involutive division. 

Janet, (a) We prove that Wj = uy. Assume to the contrary that itj 7^ Uj, so there exists 
a maximal 1 ^ fc ^ n such that 7^ e^. Without loss of generality, assume that < e^. 
If = n, we get an immediate contradiction because Janet is equivalent to Thomas for 
the final variable. If k — n — 1, then because e"" 1 + = e™ -1 + /2 -1 , it follows that 
> so that the variable x n -i must be multiplicative for the monomial U{. But 
this contradicts the fact that x n _i cannot be multiplicative for Ui in the Janet involutive 
division because e™ _1 > e™ -1 and e™ = e™. By induction on k, we can show that e\ = 
for all 1 ^ k ^ n, so that required. 

(b) By definition, if Xj G M. j(ui,U), then e\ = max fc e 3 k for all monomials Uf. G [/ such 
that e\ = e l k for all i < I ^ n. Given a set K C £/, it is clear that = max^ for all 
Ujt G such that e- = ej. for alH < I ^ n, so that G M.j(ui,V) as required. □ 

The conditions of Definition 4.1.4 ensure that any polynomial is involutively divisible 
by at most one polynomial in any Involutive Basis. One advantage of this important 
combinatorial property is that the Hilbert function of an ideal J is easily computable 
with respect to an Involutive Basis (see [4]). 

Example 4.1.18 Returning to Example 4.0.2, consider again the DegLex Grobner Basis 
G := {x 2 — 2xy + 3, 2xy + y 2 + 5, |y 3 — |x + ^-y} over the polynomial ring Q[x, y\. A 
Pommaret Involutive Basis for G is the set P := G U {g± := —5xy 2 — 5x + 6y}, with 
the variable x being multiplicative for all polynomials in P, and the variable y being 
multiplicative for just g^. We can illustrate the difference between the overlapping cones 
of G and the non-overlapping involutive cones of P by the following diagram. 
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y Grobner Basis G 




Pommaret Basis P 




The diagram also demonstrates that the polynomial p := x 2 y + y 3 + 8y is initially con- 
ventionally divisible by two members of the Grobner Basis G (as seen in Equation (4.1)), 
but is only involutively divisible by one member of the Involutive Basis P, starting the 
following unique involutive reduction path for p. 



x 2 y + y 3 + 8y 



//■_> 



— \xy 2 + y 3 — \x + 8y 



y 3 -2x+ fy 



4.2 Prolongations and Autoreduction 

Whereas Buchberger's algorithm constructs a Grobner Basis by using S-polynomials, the 
involutive algorithm will construct an Involutive Basis by using prolongations and autore- 
duction. 



Definition 4.2.1 Given a set of polynomials P, a prolongation of a polynomial p G P is 
a product pxi, where Xi ^ .M/(LM (p), LM (P)) with respect to some involutive division J. 



Definition 4.2.2 A set of polynomials P is said to be autoreduced if no polynomial p G P 
exists such that p contains a term which is involutively divisible (with respect to P) by 
some polynomial p' G P\ {p}. Algorithm 8 provides a way of performing autoreduction, 
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and introduces the following notation: Let Rem/ (A, B, C) denote the involutive remainder 
of the polynomial A with respect to the set of polynomials B, where reductions are only 
to be performed by elements of the set C C P. 

Remark 4.2.3 The involutive cones associated to an autoreduced set of polynomials are 
always disjoint, meaning that a given monomial can only appear in at most one of the 
involutive cones. 

Algorithm 8 The Commutative Autoreduction Algorithm 

Input: A set of polynomials P = {pi,p%, ■ ■ ■ ,p a }', an involutive division I. 
Output: An autoreduced set of polynomials Q = {qi, g 2 , • • • , qp}- 
while (3 pi e P such that Rem/(jOj, P, P \ {pi}) ^ Pi) do 



Proposition 4.2.4 Let P be a set of polynomials over a polynomial ringTZ = R[x±, . . . , x n ], 
and let f and g be two polynomials also in 1Z. If P is autoreduced with respect to an in- 
volutive division I , then ReHir(/, P) + Rem/(g, P) = ReHir(/ + g,P). 

Proof: Let /' := Rem/(/, P); g' := Remj(g,P) and h! := Rem/(/i, P), where h := f + g. 
Then, by the respective involutive reductions, we have expressions 

A 



p\ = Rem/Oi, P, P \ {pi}); 



p = p\{ P ih 

if (p'. 0) then 
P = PU{^}; 



end if 



end while 



Q = P; 

return Q; 




a=l 



B 




6=1 



and 



c 




c=l 
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where p aa , p@ b , p lc G P and t a , U, t c are terms which are multiplicative (over P) for each 
p aa , pj3 h and p lc respectively. 

Consider the polynomial h! — f — g'. By the above expressions, we can deduce 1 that 

a b c D 

h' ~ f ~g' = ^Paja + ^2P/3 b t b ~ J^PjJc =■ J^PsJd- 

a=l 6=1 c=l d=l 

Claim: Rem r (/i' - /' - g', P) = 0. 

Proof of Claim: Let t denote the leading term of the polynomial Y2d=iP^d^d- Then 
LM(£) = LM(ps k tk) for some 1 ^ k ^ D since, if not, there exists a monomial LM(ps k ,tk>) = 
LM(ps,„tk") ='■ u for some 1 ^ k',k" ^ D (with p$ k , ^ Ps k „) such that u is involutively 
divisible by the two polynomials ps k , and ps k „, contradicting Definition 4.1.4 (recall that 
our set P is autoreduced, so that the involutive cones of P are disjoint). It follows that 
we can use ps k to eliminate t by involutively reducing h! — f — g' as shown below. 

D k-l D 

d=l d=l d=k+l 

By induction, we can apply a chain of involutive reductions to the right hand side of 
Equation (4.2) to obtain a zero remainder, so that Rem/(/i' — /' — g', P) = 0. □ 

To complete the proof, we note that since /', g' and h! are all involutively irreducible, we 
must have Kemj(h' — f — g', P) = h' — f — g' . It therefore follows that h! — f — g' = 0, 
or h' — f + g' as required. □ 

Remark 4.2.5 The above proof is based on the proofs of Theorem 5.4 and Corollary 5.5 
in [25]. 

Let us now give a definition of a Locally Involutive Basis in terms of prolongations. Later 
on in this chapter, we will discover that the Involutive Basis algorithm only constructs 
Locally Involutive Bases, and it is the extra properties of each involutive division used with 
the algorithm that ensures that any computed Locally Involutive Basis is an Involutive 
Basis. 

Definition 4.2.6 Given an involutive division / and an admissible monomial ordering 

iFor 1 < d < A, PSd t d = Pa J a (1 < a < A); for A + 1 < d < A + B, p &d t d = p Pb t b (1 < b < B); and 
for A + B + 1 d sS A + B + C =: D, p Sd t d = p 7c t c (Hc< C). 
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O, an autoreduced set of polynomials P is a Locally Involutive Basis with respect to / 
and O if any prolongation of any polynomial pi £ P involutively reduces to zero using P. 

Definition 4.2.7 Given an involutive division I and an admissible monomial ordering 
O, an autoreduced set of polynomials P is an Involutive Basis with respect to I and O 
if any multiple prf of any polynomial pi £ P by any term t involutively reduces to zero 
using P. 

4.3 Continuity and Constructivity 

In the theory of commutative Grobner Bases, Buchberger's algorithm returns a Grobner 
Basis as long as an admissible monomial ordering is used. In the theory of commutative 
Involutive Bases however, not only must an admissible monomial ordering be used, but 
the involutive division chosen must be continuous and constructive. 

Definition 4.3.1 (Continuity) Let I be an involutive division, and let U be an arbi- 
trary set of monomials over a polynomial ring R[x%, . . . , x n }. We say that / is continuous 
if, given any sequence of monomials {u\,U2, . . . ,u m } from U such that for all i < m, 
we have |j UiXj i for some variable Xj i that is nonmultiplicative for monomial m; (or 
Xj % ^ M.i(ui, U)), no two monomials in the sequence are the same (u r ^ u s for all r ^ s, 
where 1 ^ r, s ^ m). 

Proposition 4.3.2 The Thomas, Pommaret and Janet involutive divisions are all con- 
tinuous. 

Proof: Throughout, let the sequence of monomials {u±, . . . ,Ui, . . . ,u m } have corre- 
sponding multidegrees (ej, ef , . . . , e") (where 1 ^ i ^ m). 

Thomas. If the variable Xj. is nonmultiplicative for monomial Ui, then, by definition, 
ef max t ef for all u t £ U. Variable Xj i cannot therefore be multiplicative for monomial 
Ui + i if ef +1 ^ ef , so we must have ef +l = ef + 1 in order to have u i+ i \? UiX^. Further, 
for all 1 =Sj k ^ n such that k ^ ji, we must have ef +1 = e\ as, if e^ +1 < ef, then xj~ cannot 
be multiplicative for monomial itj+i (which contradicts itj+i \r UiXjJ. Thus itj+i = UiXj i7 
and so it is clear that the monomials in the sequence {u\, U2, ■ ■ ■ , u m } are all different. 

Pommaret. Let ai (1 ^ a\ ^ n) be the smallest integer such that e"* > (where 
1 ^ z ^ m), so that = for all k < cti. Because Ui + \ \<p UiXj i for all 1 ^ i < m, 



CHAPTER 4. COMMUTATIVE INVOLUTIVE BASES 



81 



and because (by definition) ji > it follows that we must have ef +1 = for all k < ati. 
Therefore aj+i is a, for all 1 ^ z < n. If a^+i = c^, we note that e^_ 1 ^ because 
variable x ai is multiplicative for monomial Mj+i. If then we have eS^ = e"% then because 
the variable Xj i is also nonmultiplicative for monomial itj+i, we must have ef^ = ef + 1. 

It is now clear that the monomials in the sequence {ui,u 2 , • • • , w m } are all different because 
(a) the values in the sequence a = {a±, a 2 , . . . , a m } monotonically increase; (b) for consec- 
utive values a s , a s+ i, . . . , a s+a in a that are identical (1 $C s < m, s + a ^ m), the values 
in the corresponding sequence E = {e° s , e"f x , . . . , e°4- CT } monotonically decrease; (c) for 
consecutive values e" s , e^ 1; . . . , e"+ T in _E that are identical (s ^t < s + a, t + r ^ s + a), 
the degrees of the monomials u t , u t +i, . . . , u t + T strictly increase. 

Janet. Consider the monomials Ux, u 2 and the variable Xj l that is nonmultiplicative for 
u\. We will first prove (by induction) that e\ = e\ for all ji < i ^ n. For the case 
% = n, we must have e 2 = e™ otherwise (by definition) variable x n is nonmultiplicative 
for monomial u 2 (we have e 2 < e"), contradicting that fact that u 2 \j uiXj 1 . For the 
inductive step, assume that e l 2 = e\ for all k ^ i ^ n, and let us look at the case i = k — 1. 
If e 2 _1 < e^ _1 , then (by definition) variable Xk-i is nonmultiplicative for monomial u 2 , 
again contradicting the fact that u 2 \j u\Xj 1 . It follows that we must have e 2 _1 = e\~ l . 

Let us now prove that e 2 = e^ 1 + 1. We can rule out the case e J 2 < e{ x immediately 
because this implies that the variable Xj 1 is nonmultiplicative for monomial u 2 (by defi- 
nition), contradicting the fact that u 2 \j u\Xj 1 . The case e J 2 = ej 1 can also be ruled out 
because we cannot have e 2 = e\ for all ji ^ i ^ n and variable Xj 1 being simultaneously 
nonmultiplicative for monomial U\ and multiplicative for monomial u 2 . Thus e 3 2 = e^ 1 + 1 . 
It follows that Ui < u 2 in the InvLex monomial ordering (see Section 1.2.1) and so, by 
induction, u\ < u 2 < ■ ■ ■ < u m in the InvLex monomial ordering. The monomials in the 
sequence {u\, u 2 , ■ ■ ■ , u m } are therefore all different. □ 

Proposition 4.3.3 If an involutive division I is continuous, and a given set of polyno- 
mials P is a Locally Involutive Basis with respect to I and some admissible monomial 
ordering O, then P is an Involutive Basis with respect to I and O. 

Proof: Let / be a continuous involutive division; let O be an admissible monomial 
ordering; and let P be a Locally Involutive Basis with respect to / and O. Given any 
polynomial p G P and any term t, in order to show that P is an Involutive Basis with 
respect to / and O, we must show that pt — 0. 
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If p | / pt we are done, as we can use p to involutively reduce pi to obtain a zero remainder. 
Otherwise, 3yi A4/(LM(p), LM(P)) such that t contains y±. By Local Involutivity, the 
prolongation pyx involutively reduces to zero using P. Assuming that the first step of this 
involutive reduction involves the polynomial p\ G P, we can write 



Pltl + ^PaJaa, (4.3) 



a=l 



where p aa G P and ti,t aa are terms which are multiplicative (over P) for p\ and each p aa 
respectively. Multiplying both sides of Equation (4.3) by we obtain the equation 



t A t 



pt = p ltl — + J2p aa t aa — . (4.4) 

If Pi |/ pt, it is clear that we can use p\ to involutively reduce the polynomial pt to 
obtain the polynomial ^ a= iPa a ta a ^- By Proposition 4.2.4, we can then continue to 
involutively reduce pt by repeating this proof on each polynomial p aa t aa ^ individually 
(where 1 ^ a ^ A), noting that this process will terminate because of the admissibility 
of O (we have LM(p aa t aa ±) < LM(pt) for all 1 < a < A). 

Otherwise, if p\ does not involutively divide pt, there exists a variable y 2 G such 
that y 2 ^ Aii(LM(pi), LM(P)). By Local Involutivity, the prolongation p\y 2 involutively 
reduces to zero using P. Assuming that the first step of this involutive reduction involves 
the polynomial p 2 G P, we can write 

B 

PlV2 = P2t2 + ^Pfotfo, (4.5) 
6=1 

where pp h G P and t 2 ,tp b are terms which are multiplicative (over P) for p 2 and each pp b 
respectively. Multiplying both sides of Equation (4.5) by we obtain the equation 

o 

t t\t ^ — > t\t j . \ 

Pih— = Pih + l^Pfotfa • (4-6) 

2/i 2/12/2 2/12/2 

Substituting for Pih^ from Equation (4.6) into Equation (4.4), we obtain the equation 



tit v ■% i v ■% (/it . . 

= p 2 t 2 + Z^Po'Jaa— + 2^Pp b tp b • (4-7) 



2/12/2 ~ 2/i t=T ^ 2 
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If Pi \i pt, it is clear that we can use P2 to involutively reduce the polynomial pt to obtain 
the polynomial Y^iP***^^ + Hb=iVp b tp b ^- As before, we can then use Proposition 
4.2.4 to continue the involutive reduction of pt by repeating this proof on each summand 
individually. 

Otherwise, if P2 does not involutively divide pt, we continue by induction, obtaining a 
sequence p,p\,p2,p%, ... of elements in P. By construction, each element in the sequence 
divides pt. By continuity, each element in the sequence is different. Because P is finite and 
because pt has a finite number of distinct divisors, the sequence must be finite, terminating 
with an involutive divisor p' £ P of pt, which then allows us to finish the proof through 
use of Proposition 4.2.4 and the admissibility of O. □ 

Remark 4.3.4 The above proof is a slightly clarified version of the proof of Theorem 6.5 
in [25]. 

Definition 4.3.5 (Constructivity) Let / be an involutive division, and let U be an 

arbitrary set of monomials over a polynomial ring R[x\, . . . , x n ]. We say that / is con- 
structive if, given any monomial u £ [/ and any nonmultiplicative variable Xi ^ Aii(u, U) 
satisfying the following two conditions, no monomial w £ Ci(U) exists such that uxi £ 
C/0,f/U{iu}). 

(a) u Xi i C T {U). 

(b) If there exists a monomial v £ U and a nonmultiplicative variable Xj ^ Aij(v, U) 
such that vxj \ uxi but vxj ^ ux iy then vxj £ Cj(U). 

Remark 4.3.6 Constructivity allows us to consider only polynomials whose lead mono- 
mials lie outside the current involutive span as potential new Involutive Basis elements. 

Proposition 4.3.7 The Thomas, Pommaret and Janet involutive divisions are all con- 
structive. 



Proof: Throughout, let the monomials u, v and w that appear in Definition 4.3.5 have 
corresponding multidegrees (e^, e\, . . . , e"), (el, el, ... , e") and (e^, e 2 w , . . . , e™); and let the 
monomials w\, W2, W3 and /i that appear in this proof have corresponding multidegrees 

( e wii e wii ■ ■ ■ 1 e u>i)> ( e ui 2 > e ui2> • • • ' e w ^)i ( e M) 3 > e ui3> • • ■ ) e w ^) and (e^, e^, . . . , e^). 

To prove that a particular involutive division I is constructive, we will assume that a 
monomial w £ Cj(U) exists such that ux^ £ Cj(w,U U {w}). Then w = pwi for some 
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monomial /x G £7 and some monomial u>i that is multiplicative for fi over the set U 
(e* > =^ 3;^ G Aij(fi,U) for all 1 ^ /c ^ n); and uxj = «jw 2 for some monomial u> 2 
that is multiplicative for w over the set C/ U {w} (e* > =>- Xk G C/ U {w}) for all 

1 ^ k ^ n). It follows that uxi = fiwiW2- If we can show that all variables appearing in 
W2 are multiplicative for /x over the set U (e^ 2 > =>- Xk G .Mj(/i, £/) for all 1 ^ ^ n), 
then /i is an involutive divisor of uxi, contradicting the assumption uxi Ci(U). 

Thomas. Let Xk be an arbitrary variable (1 ^ k ^ n) such that e k W2 > 0. If eJL > 0, then 
it is clear that Xk is multiplicative for //. Otherwise e% Jl = so that = e*. By definition, 
this implies that Xk G A^r(/ i , t/) as Xk G t/ U {w}). Thus G Mt([j,, U). 

Pommaret. Let a and (3 (1 ^ a,/3 ^ n) be the smallest integers such that > 
and > respectively. By definition, (3 ^ a (because w = /m>i), so for an arbitrary 
1 ^ k ^ n, it follows that e^ 2 >0=^/c^/3^a=^:rfcG A4-p(n, U) as required. 

Janet. Here we proceed by searching for a monomial u E U such that uxj G Cj{v,U), 
contradicting the assumption uxi £ Cj(U). Let a and /3 (1 ^ a, /3 ^ n) be the largest 
integers such that e™ > and e(L > respectively (such integers will exist because if 
deg(toi) = or deg(u>2) = 0, we obtain an immediate contradiction uxi G Cj{U)). We 
claim that % > maxja,/?}. 

• If i < (3, then < e& which contradicts i,j 6 JU ^(w, C7 U {w}) as = for all 
j> P. Thus i ^ /3. 

• If z < a, then as /? ^ % we must have = for all a < 7 ^ n. Therefore 
e fi < e « ^ x a & M U), a contradiction; it follows that i ^ a. 

• If % — a, then either (3 < a or /3 = a. If /3 = a, then as eJ Ui > 0; e l W2 > and 
e l u + 1 = + + e^ 2 , we have e l u > e 1 ^ => x a ^ M. j(fi, U), a contradiction. If 
j3 < a, then e l u + 1 = + e^. If ej 0i ^ 2, we get the same contradiction as before 
(x a ^ Aij(fi,U)). Otherwise e l wi = 1 so that = for all a ^ 7 ^ n. If w = /iXj, 
then as ef, < ef we have xp £ M. j(w, U U {w}), a contradiction. Else let 5 (where 
1 ^ 5 < a) be the second greatest integer such that e 5 Wl > 0. Then, as < e 5 u and 
e ]i = e Z fo r all 5 < 7 ^ n, we have x$ £ M. U), another contradiction. It follows 
that i > max{a, /?}, so that = for alH < 7 ^ n and e l u + 1 = e* . 

If MXj ^ Cj(U), then there must exist a variable (where 1 ^ < z) such that e^ 2 > 
and Xk ^ M. U). Because e° > 0, we can use condition (b) of Definition 4.3.5 to give 
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us a monomial fix G U and a monomial W3 multiplicative for /ii over U (e^, > =^ x 7 G 
.M j(yUi, £/) for all 1 ^ 7 ^ n) such that 

UXi = [VW\W 2 

( w 2 

= flX k Wi — 

( w 2 

If fii \j UXi, then the proof is complete, with v = yL\. Otherwise there must be a variable 
xy appearing in the monomial Wi(^) such that xy ^ Aij(fi\, U). To use condition (b) 
of Definition 4.3.5 to yield a monomial fi 2 G U and a monomial multiplicative for fi 2 
over U such that 

W 2 \ ( WxW 2 \ 



H1W3W1 — = f! 2 W 4 w 3: 

it is sufficient to demonstrate that at least one variable appearing in the monomial 
w^wA— ) is multiplicative for fii over the set U. We will do this by showing that 
x a G Mj(fii, U) (recall that e™ 1 > 0). 

By the definition of the Janet involutive division, 

e 1 = for all k < 7 < n (4.8) 

and 

< = e* + 1, (4.9) 

so that yU < /ii in the InvLex monomial ordering. If we can show that a > k, then it is 
clear from Equation (4.8) and x a E M. U) that i a 6 X j(fJ>i, U). 

• If cc > /3, then a > k because k «C /? by definition. 

• If a = then a > fc if < otherwise k = j3 in which case a; a G .M j(/i, t/) is 
contradicted by Equations (4.8) and (4.9). 

• If a < (3, then = for all a < 7 ^ n. Thus & ^ a otherwise x k <E M. j(w, U U 
{w}) =>- Xfc G Ai j(fi,U), a contradiction. Further, A; = a is not allowed because 
i„ G M. U) and x k ^ M. U) cannot both be true; therefore a > k again. 



CHAPTER 4. COMMUTATIVE INVOLUTIVE BASES 



86 



If fi2 \j uxi, then the proof is complete, with v = fi 2 . Otherwise we proceed by induction 
to obtain the sequence shown below (Equation (4.10)), which is valid because < Ha 
(for a ^ 2) in the InvLex monomial ordering allows us to prove that the variable x a (that 
appears in the monomial W\) is multiplicative (over U) for the monomial /i^; this in turn 
enables us to construct the next entry in the sequence by using condition (b) of Definition 
4.3.5. 



[IW 1 W 2 = HlW^Wi 



w 2 \ ( w 1 w 2 \ ( w 1 w 2 w 3 \ 

— = w 3 = n 3 w 5 )w 4 = ■■■ (4.10) 

Xk J \XkXk' J \X k Xk'X k " J 



Because fi < fi\ < fi 2 < ■ ■ ■ in the InvLex monomial ordering, elements of the sequence 
/i, fi 2 , . . . are distinct. It follows that the sequence in Equation (4.10) is finite (ter- 
minating with the required v) because fi and the \x a (for a ^ 1) are all divisors of the 
monomial uXi, of which there are only a finite number of. □ 

Remark 4.3.8 The above proof that Janet is a constructive involutive division does not 
use the property of Janet being a continuous involutive division, unlike the proofs found 
in [25] and [50]. 



4.4 The Involutive Basis Algorithm 

To compute an Involutive Basis for an ideal J with respect to some admissible monomial 
ordering O and some involutive division J, it is sufficient to compute a Locally Involutive 
Basis for J with respect to / and O if / is continuous; and we can compute this Locally 
Involutive Basis by considering only prolongations whose lead monomials lie outside the 
current involutive span if / is constructive. Let us now consider Algorithm 9, an algorithm 
to construct an Involutive Basis for J (with respect to / and O) in exactly this manner. 

The algorithm starts by autoreducing the input basis F using Algorithm 8. We then con- 
struct a set S containing all the possible prolongations of elements of F, before recursively 
(a) picking a polynomial s from S such that LM(s) is minimal in the chosen monomial 
ordering; (b) removing s from S; and (c) finding the involutive remainder s' of s with 
respect to F. 

If during this loop a remainder s' is found that is nonzero, we exit the loop and autoreduce 
the set F U {s'}, continuing thereafter to construct a new set S and repeating the above 
process on this new set. If however all the prolongations in S involutively reduce to zero, 
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Algorithm 9 The Commutative Involutive Basis Algorithm 

Input: A Basis F = f 2 , . . . , f m } for an ideal J over a commutative polynomial 
rine; R\ admissible monomial ordering O; a continuous and constructive 

involutive division /. 

Output: An Involutive Basis G = {gi, g 2 , ■ . . , g p } for J (in the case of termination). 
G = 0; 

F = Autoreduce(F); 
while (G == 0) do 

S = {x i f\feF,x i tM I (f,F)} ] 
s' = 0; 

while (S ^ 0) and (V == 0) do 

Let s be a polynomial in S whose lead monomial is minimal with respect to O; 

S = S\{s}; 

s' = Rem/(s, F); 
end while 
if (V ^ 0) then 

F = Autoreduce(F U {s'»; 
else 

G = F; 
end if 
end while 
return G; 
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then by definition F is a Locally Involutive Basis, and so we can exit the algorithm with 
this basis. The correctness of Algorithm 9 is therefore clear; termination however requires 
us to show that each involutive division used with the algorithm is Noetherian and stable. 

Definition 4.4.1 An involutive division I is Noetherian if, given any finite set of mono- 
mials U, there is a finite Involutive Basis V D U with respect to I and some arbitrary 
admissible monomial ordering O. 

Proposition 4.4.2 The Thomas and Janet divisions are Noetherian. 

Proof: Let U = {u\, . . . ,u m } be an arbitrary set of monomials over a polynomial ring 
7Z = R[x±, . . . , x n ] generating an ideal J. We will explicitly construct an Involutive Basis 
V for U with respect to some arbitrary admissible monomial ordering O. 

Janet (Adapted from [50], Lemma 2.13). Let /x G 1Z be the monomial with multi- 
degree (e 1 , el, ... , e") defined as follows: = max ueU e l u (1 ^ i ^ n). We claim that the 
set V containing all monomials v G J such that v \ /x is an Involutive Basis for U with 
respect to the Janet involutive division and O. To prove the claim, first note that V is a 
basis for J because U C V and V C J; to prove that V is a Janet Involutive Basis for J 
we have to show that all multiples of elements of V involutively reduce to zero using V, 
which we shall do by showing that all members of the ideal involutively reduce to zero 
using V. 

Let p be an arbitrary element of J. If p G V, then trivially p G Cj(V) and so p involutively 
reduces to zero using V. Otherwise set X = {xi such that e l LM ^ > e^}, and define 
the monomial p' by e l pl = e l LM ^ for x^ X; and e z p , = for x« G X (so that e l p , = 
min{eL M ( p ), e^}). By construction of the set V and by the definition of /x, it follows 
that v' G V and X C Mj(p',V). But this implies that LM(p) G Cj(p',V), and thus 
p — > , (p — LM(p)). By induction and by the admissibility of O, p ^> y and thus V 
is a finite Janet Involutive Basis for J. 

Thomas. We use the same proof as for Janet above, replacing "Janet" by "Thomas" 
and "J" by "T" . □ 

Proposition 4.4.3 The Pommaret division is not Noetherian. 

Proof: Let J be the ideal generated by the monomial u := xy over the polynomial ring 
Q[x, y\. For the Pommaret division, M.-p{u) = {x}, and it is clear that A4-p(v) = {x} for 
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all v G J as v G J => v = (xy)p for some polynomial p. It follows that no finite Pommaret 
Involutive Basis exists for J as no prolongation by the variable y of any polynomial p G J 
is involutively divisible by some other polynomial p' G J; the Pommaret Involutive Basis 



Definition 4.4.4 Let u and v be two distinct monomials such that u \ v. An involutive 
division / is stable if Kem.j(v, {u,v}, {u}) = v. In other words, u is not an involutive 
divisor of v with respect to / when multiplicative variables are taken over the set {u, v}. 

Proposition 4.4.5 The Thomas and Janet divisions are stable. 

Proof: Let u and v have corresponding multidegrees (e*, . . . , e") and (e*, . . . , e"). If 
u | v and if u and v are different, then we must have e l u < e l v for at least one 1 ^ i ^ n. 

Thomas. By definition, Xi ^ Air(u, {u,v }), so that Remr(f, {u, v}, {u}) = v. 

Janet. Let j be the greatest integer such that e{ < e{. Then, as e\ = e k v for all j < k ^ n, 
it follows that Xj ^ Ai j(u, {u, v}), and so Kemj(v, {u, v}, {u}) = v. □ 

Proposition 4.4.6 The Pommaret division is not stable. 

Proof: Consider the two monomials u := x and v := x 2 over the polynomial ring Q[x]. 
Because Aip(u, {w, v}) = {x}, it is clear that u \<p v, and so the Pommaret involutive 
division is not stable. □ 

Remark 4.4.7 Stability ensures that any set of distinct monomials is autoreduced. In 
particular, if a set U of monomials is autoreduced, and if we add a monomial u ^ U to U, 
then the resultant set U U {u} is also autoreduced. This contradicts a statement made on 
page 24 of [50], where it is claimed that if we add an involutively irreducible prolongation 
uxi of a monomial u from an autoreduced set of monomials U to that set, then the resultant 
set is also autoreduced regardless of whether or not the involutive division used is stable 2 . 
For a counterexample, consider the set of monomials U := {ui, u 2 } = {xy, x 2 y 2 } over the 
polynomial ring Q[x, y], and let the involutive division be Pommaret. 



for J is therefore the infinite basis {xy, xy 2 , xy 3 , . . .}. 



□ 



u 



M v (u,U) 



xy 
x 2 y 2 



{x} 



{x} 



2 This claim is integral to the proof of Theorem 6.4 in [50], a theorem that states than an algorithm 
corresponding to Algorithm 9 in this thesis terminates. 
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Because the variable y is nonmultiplicative for the monomial xy, it is clear that the set U 
is autoreduced. Consider the prolongation xy 2 of the monomial u\ by the variable y. This 
prolongation is involutively irreducible with respect to U, but if we add the prolongation 
to U to obtain the set V : = {^1,^2,^3} = {xy,x 2 y 2 ,xy 2 }, then u 3 will involutively reduce 
V2, contradicting the claim that the set V is autoreduced. 



V 


M v {v, V) 


xy 


{x} 


x 2 y 2 


{x} 


2 

xy 


{x} 



Proposition 4.4.8 Algorithm 9 always terminates when used with a Noetherian and sta- 
ble involutive division. 

Proof: Let / be a Noetherian and stable involutive division, and consider the computa- 
tion (using Algorithm 9) of an Involutive Basis for a set of polynomials F with respect to 
I and some admissible monomial ordering O. The algorithm begins by autoreducing F to 
give a basis (which we shall denote by iq) generating the same ideal J as F. Each pass of 
the algorithm then produces a basis F i+ \ = Autoreduce(F, U {s'A-) generating J {i ^ 1), 
where each s[ 7^ is an involutively reduced prolongation. Consider the monomial ideal 
(LM(Fj)) generated by the lead monomials of the set Fj. Claim: 

(LM(iq)) C (LM(F 2 )> C (LM(F 3 )> C • ■ ■ (4.11) 

is an ascending chain of monomial ideals. 

Proof of Claim: It is sufficient to show that if an arbitrary polynomial / G Fi does not 
appear in F+i, then there must be a polynomial /' G Fi + \ such that LM(/') | LM(/). It is 
clear that such an /' will exist if the lead monomial of / is not reduced during autoreduc- 
tion; otherwise a polynomial p reduces the lead monomial of / during autoreduction, so 
that LM(p) |/ LM(/). If there exists a polynomial p' G F i+l such that LM(p') = LM(p), 
we are done; otherwise we proceed by induction on p to obtain a polynomial q such that 
LM(g) |/ LM(p). Because deg(LM(/)) > deg(LM(p)) > deg(LM(g)) > this process 
is guaranteed to terminate with the required /'. □ 

By the Ascending Chain Condition (Corollary 2.2.6), the chain in Equation (4.11) must 
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eventually become constant, so there must be an integer N (N ^ 1) such that 

(LM(Fjv)) = (LM^jv+i)) = • ■ • ■ 

Claim: If F k+l = Autoreduce(F fc U {s' k }) for some k ^ N, then LM(s' k ) = LM(/a;<) for 
some polynomial / G F k and some variable X{ £ Aij(f,F k ) such that s' k = Rem I (fx i , F k ). 

Proof of Claim: Assume to the contrary that LM(s' fc ) 7^ LM(/xj). Then because 
4 = Rem / (/x i ,F fc ), it follows that LM(s' fc ) < LM(/i { ). But (LM(F fc )) = (LM(F fc+1 )), so 
that LM(s' fc ) = LM(/'it) for some /' G i 7 *,. and some monomial u containing at least one 
variable Xj Mi(f, F k ) (otherwise s' k can be involutively reduced with respect to F k , a 
contradiction). 

Because O is admissible, 1 ^ ^- and therefore Xj ^ u, so that LM(f'xj) LM(/'m) < 
LM(/xj). But the prolongation fxi was chosen so that its lead monomial is minimal 
amongst the lead monomials of all prolongations of elements of F k that do not involu- 
tively reduce to zero; the prolongation f'x k must therefore involutively reduce to zero, so 
that LM(f'xj) = LM(f"u') for some polynomial /" G F k and some monomial u' that is 
multiplicative for /" over F k . But s' k is involutively irreducible with respect to F k , so a 
variable Xj ^ Aii(f",F k ) must appear in the monomial 

It is now clear that we can construct a sequence f'xj, fx',, ... of prolongations. But / is 
continuous, so all elements in the corresponding sequence LM(/'), LM(/"), ... of mono- 
mials must be distinct. Because F k is finite, it follows that the sequence of prolongations 
will terminate with a prolongation that does not involutively reduce to zero and whose 
lead monomial is less than the monomial LM(/ij), contradicting our assumptions. Thus 
LM(s' A .) for k ^ N is always equal to the lead monomial of some prolongation of some 
polynomial / G F k . □ 

Consider now the set of monomials LM(F k+1 ). Claim: LM(F k+1 ) = LM(F fc ) U {LM(s' fc )} 
for all k ^ N, so that when autoreducing the set F k U {s' k }, no leading monomial is 
involutively reducible. 

Proof of Claim: Consider an arbitrary polynomial p G F k U {s' k }. If p = s' k , then 
(by definition) p is irreducible with respect to the set F k , and so (by condition (b) of 
Definition 4.1.4) p will also be irreducible with respect to the set F k U {s' k }. If p 7^ s' k , 
then p is irreducible with respect to the set F k (as the set F k is autoreduced) , and so 
(again by condition (b) of Definition 4.1.4) the only polynomial in the set F k U {s' k } 
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that can involutively reduce the polynomial p is the polynomial s' k . But / is stable, so 
that s' k cannot involutively reduce LM(p). It follows that a polynomial p' will appear in 
the autoreduced set F k+1 such that LM(p') = LM(p), and thus LM(F k+1 ) = LM(F k ) U 
{LM(sJ,)} as required. □ 

For the final part of the proof, consider the basis Fn- Because I is Noetherian, there exists 
a finite Involutive Basis Gn for the ideal generated by the set of lead monomials LM(F^), 
where Gn D LM(Fn)- Let fxi be the prolongation chosen during the iV-th iteration of 
Algorithm 9, so that LM(/xj) ^ Ci(Fn)- Because Gn is an Involutive Basis for LM(Fjy), 
there must be a monomial g G Gn such that g \i LM(/xj). Claim: g = LM(fxi). 

Proof of Claim: We proceed by showing that if g ^ LM(/xj), then g G Cj(LM(F N )) 
so that (because of condition (b) of Definition 4.1.4) LM(fxi) G Cj{Gn) =>• LM(/xj) G 
Cj(g, LM(Fjv) U {g}), contradicting the constructivity of / (Definition 4.3.5). 

Assume that g ^ LM(fxi). Because (Gn) = (LM(F/v)), there exists a polynomial fi G Fn 
such that LM(/!) | g. If LM(/!) |/ g with respect to Fn, then we are done. Otherwise 
LM(g) = LM(/ 1 )m 1 for some monomial U\ ^ \ containing at least one variable Xj 1 
A4i(fi, Fn)- Because deg(g) < deg(LM(/a;j)) and LM(/i)i J1 | LM(fxi), we must have 
LM(/i)xj 1 < LM(fxi) with respect to our chosen monomial ordering, so that LM(/i)xj 1 G 
Ci(Fn) by definition of how the prolongation fx^ was chosen. It follows that there exists 
a polynomial f 2 G Fn such that LM(/ 2 ) \i LM(/ 1 )x J1 with respect to Fn- If LM(/ 2 ) \i g 
with respect to Fn, then we are done. Otherwise we iterate (LM(/i)xj 1 = LM(/ 2 )m2 for 
some monomial u 2 containing at least one variable Xj 2 ^ M-i{f2, Fn)- ■ ■ ) to obtain the 
sequence (fi, f2, fa, ■ ■ ■) of polynomials, where the lead monomial of each element in the 
sequence divides g and LM(fk+i) \i LM(fk)xj k with respect to Fn for all k ^ 1. Because 
/ is continuous, this sequence must be finite, terminating with a polynomial fk G Fn (for 
some k ^ 1) such that fk\i 9 with respect to Fn- □ 

It follows that during the iV-th iteration of the algorithm, a polynomial is added to the 
current basis Fn whose lead monomial is a member of the Involutive Basis Gn- By 
induction, every step of the algorithm after the A r -th step also adds a polynomial to the 
current basis whose lead monomial is a member of Gn- Because Gat is a finite set, after a 
finite number of steps the basis LM(Ffc) (for some k ^ N) will contain all the elements of 
Gn- We can therefore deduce that LM(Fk) = Gn', it follows that LM(Fk) is an Involutive 
Basis, and so Fk is also an Involutive Basis. □ 
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Theorem 4.4.9 Every Involutive Basis is a Grobner Basis. 

Proof: Let G = {g±, . . . ,g m } be an Involutive Basis with respect to some involutive 
division / and some admissible monomial ordering O, where each ^gG (for all 1 ^ i ^ 
m) is a member of the polynomial ring R[x±, . . . , x n }. To prove that G is a Grobner Basis, 
we must show that all S-polynomials 



conventionally reduce to zero using G (1 ^ i,j ^ m, % ^ j). Because G is an Involu- 



Lemma 4.4.10 Remainders are involutively unique with respect to Involutive Bases. 

Proof: Given an Involutive Basis G with respect to some involutive division I and 
some admissible monomial ordering O, Theorem 4.4.9 tells us that G is a Grobner Basis 
with respect to O and thus remainders are conventionally unique with respect to G. To 
prove that remainders are involutively unique with respect to G, we must show that the 
conventional and involutive remainders of an arbitrary polynomial p with respect to G are 
identical. For this it is sufficient to show that a polynomial p is conventionally reducible 
by G if and only if it is involutively reducible by G. (=^) Trivial as every involutive 
reduction is a conventional reduction. (<^=) If a polynomial p is conventionally reducible 
by a polynomial g £ G, it follows that LM(p) = LM(g)u for some monomial u. But G is 
an Involutive Basis, so there must exist a polynomial g' £ G such that LM(g)u = LM(g')u' 
for some monomial u' that is multiplicative (over G) for g' . Thus p is also involutively 
reducible by G. □ 

Example 4.4.11 Let us return to our favourite example of an ideal J generated by the 
set of polynomials F := {fx, f 2 } = {x 2 — 2xy + 3, 2xy + y 2 + 5} over the polynomial ring 
Q[x, y,z}. To compute an Involutive Basis for F with respect to the DegLex monomial 
ordering and the Janet involutive division J , we apply Algorithm 9 to F, in which the first 
task is to autoreduce F. This produces the set F = {/ 2 , fa} = {2xy + y 2 + 5, x 2 + y 2 + 8} 
as output (because fi = x 2 — 2xy + 3 — — »- x 2 + y 2 + 8 =: fs and fz is involutively 

J J2 

irreducible with respect to fa), with multiplicative variables as shown below. 



S-polfoi,^) 



lcm(LM(^),LM(^)) 



9i ~ 



lcm(LM(^),LMfaO) 
LT(fc) 



9i 
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Polynomial 


Mj(f u F) 


f 2 = 2xy + y 2 + 5 


{x, y} 


f 3 = x 2 + y 2 + 8 


{x} 



The first set of prolongations of elements of F is the set S = {fsy} = {x 2 y + y 3 + 8y}. 
As this set only has one element, it is clear that on entering the second while loop of the 
algorithm, we must remove the polynomial s = x 2 y + y 3 + 8y from S and involutively 
reduce s with respect to F to give the polynomial s' 



5„,3 



\y a — |x + ^-y as follows. 



s = x 2 y + y 3 + 8y 



-j*- fa x y + y +8y- -x(2xy + y + 5) 



J h 



2 S ^ 

— xy + y x 

2 2 



xy 2 + y 3 



5 1 

-x + 8y + -y(2xy + y 2 + 5) 



—y x 

4 y 2 



37 



-.'7 



./i 



As the prolongation did not involutively reduce to zero, we exit from the second while 
loop of the algorithm and proceed by autoreducing the set FU{/ 4 } = {2xy + y 2 + 5, x 2 + 

Ty}- This process does not alter the set, so now we consider the 



y 2 + 



5. ,3 



y - 3 x 



prolongations of the three element set F = {/ 2 , f$, f^}. 



Polynomial 


Mj{fi,F) 


h = 2xy + y 2 + 5 


{x} 


f 3 = x 2 + y 2 + 8 


{x} 


h = h 3 ~ \ x + TV 


{x,y} 



We see that there are 2 prolongations to consider, so that S = {f 2 y, fzy} = {2xy 2 + y 3 + 
5y, x 2 y + y 3 + 8y}. As xy 2 < x 2 y in the DegLex monomial ordering, we must consider 
the prolongation f 2 y first. 



f 2 y = 2xy 2 + y 3 + 5y 



J h 



2xy 2 + y 3 



2xy 2 + 2x 



hy - 

12 

" 15 



y 



5 
4 

U 



V 



37 



-x 



As before, the prolongation did not involutively reduce to zero, so now we autoreduce the 



set F U {/ 5 } = {2xy + y 2 + 5, 



x 



V 2 + 8, \y 3 



;X 



^y, 2xy 2 + 2x- ^y}. Again this 



leaves the set unchanged, so we proceed with the set F = {f 2 , fy, f^, /s}. 
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Polynomial 


Mj(f u F) 


h 


= 2xy + y 2 4 


-5 


{x} 


h 


= x 2 + y 2 + 


8 


{x} 


h = 


: f |/ 3 - |X + 


fy 


{x,y} 


h = 


2xy 2 + 2x — 


fy 


{x} 



This time, S = {f 2 y, f 3 y, hv) = {2xy 2 + y 3 + 5j/, x 2 y + y 3 + 8y, 2a;y 3 + 2a;y - f y 2 }, 
and we must consider the prolongation f 2 y first. 

/ 12 

/ 2 y = 2xy 2 + y 3 + % —j*- h 2xy 2 + y 3 + 5y - f 2a;y 2 + 2a; - y y 

3 o 37 
= y - 2x + —y 

5 

, „ 37 4 /5 .5 37 
?/ — 2x + —y — — —y — —x + — y 



3 h u 5 3 5 V 4 





Because the prolongation involutively reduced to zero, we move on to look at the next 
prolongation f 3 y (which comes from the revised set S = {f%y, f$y} = {x 2 y + y 3 + 
8y, 2xy 3 + 2xy-fy 2 }). 

hy = x 2 y + y 3 + 8y x 2 y + y 3 + 8y- ^x(2xy + y 2 + 5) 

1 5 
= ~2 Xy2 + y3 ~ 2 X + 8y 

2 " a ^ ™ 12 



— ~xy +y — -x + 8y + - I 2xy +2x — —y 



J h 2 2 

3 o 37 

= y -2x+ —y 
5 

, 37 4 /5 , 5 37 

y -2x + —y - -\-y - -x + —y 



3 h u 5 a 5 \A° 2 4 

0. 
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Finally, we look at the prolongation f 5 y from the set S = {2xy 3 + 2xy — ^§y 2 }- 

o 12 o ^ 12 o ^ I s 37 



2 



, 2 64 12 
4.x - — - — y 

5 5 

4x 2 - — xy - —y 2 - 4(x 2 + y 2 + 8) 



■7 /a 5 5 

64 32 2 
-yxy - —y - 32 

64 32 2 



— /a -yxy- — y 2 -32 + — (2xy + i/ i + 5) 
0. 

Because this prolongation also involutively reduced to zero using F, we are left with 
5 = 0, which means that the algorithm now terminates with the Janet Involutive Basis 
G = {2xy + y 2 + 5, x 2 + y 2 + 8, f y 3 - fx + 2xy 2 + 2x - ^y} as output. 



4.5 Improvements to the Involutive Basis Algorithm 

4.5.1 Improved Algorithms 

In [58], Zharkov and Blinkov introduced an algorithm for computing an Involutive Basis 
and proved its termination for zero-dimensional ideals. This work led other researchers to 
produce improved versions of the algorithm (see for example [4], [13], [23], [26], [27] and 
[28]); improvements made to the algorithm include the introduction of selection strategies 
(which, as we have seen in the proof of Proposition 4.4.8, are crucial for proving the 
termination of the algorithm in general), and the introduction of criteria (analogous to 
Buchberger's criteria) allowing the a priori detection of prolongations that involutively 
reduce to zero. 

4.5.2 Homogeneous Involutive Bases 

When computing an Involutive Basis, a prolongation of a homogeneous polynomial is 
another homogeneous polynomial, and the involutive reduction of a homogeneous poly- 
nomial by a set of homogeneous polynomials yields another homogeneous polynomial. 
It would therefore be entirely feasible for a program computing Involutive Bases for ho- 
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mogeneous input bases to take advantage of the properties of homogeneous polynomial 
arithmetic. 

It would also be desirable to be able to use such a program on input bases containing non- 
homogeneous polynomials. The natural way to do this would be to modify the procedure 
outlined in Definition 2.5.7 by replacing every occurrence of the phrase "a Grobner Basis" 
by the phrase "an Involutive Basis" , thus creating the following definition. 

Definition 4.5.1 Let F = {/i, . . . , f m } be a non-homogeneous set of polynomials. To 
compute an Involutive Basis for F using a program that only accepts sets of homogeneous 
polynomials as input, we proceed as follows. 

(a) Construct a homogeneous set of polynomials F' = {h(fi), . . . , h(f m )}. 

(b) Compute an Involutive Basis G' for F' . 

(c) Dehomogenise each polynomial g' e G' to obtain a set of polynomials G. 

Ideally, we would like to say that G is always an Involutive Basis for F as long as the 
monomial ordering used is extendible, mirroring the conclusion reached in Definition 2.5.7. 
However, we will only prove the validity of this statement in the case that the set G is 
autoreduced, and also only for certain combinations of monomial orderings and involutive 
divisions — all combinations will not work, as the following example demonstrates. 

Example 4.5.2 Let F := {x\ + x 2 , X\ + £3} be a basis generating an ideal J over the 
polynomial ring Q[xi, X2, £3], and let the monomial ordering be Lex. Computing an 
Involutive Basis for F with respect to the Janet involutive division using Algorithm 9, we 
obtain the set G := {x\ + x\, x\x\ + x\x\, x\x<i + £2^3, x\ — x\, x\ + £3}. 

Taking the homogeneous route, we can homogenise F (with respect to Lex) to obtain the 
set F' := {x\y + x\, X\y 2 + £3} over the polynomial ring Q[xi, x 2 , £3, y]. Computing an 
Involutive Basis for F' with respect to the Janet involutive division, we obtain the set 
G' := {xly 3 +x^, xixly 3 +X2X^y, x\X2y i +X2x\y ) xiy 3 +x^y, x\y 2 +xl, Xixly—x^y 2 , x\x\y+ 
x\x\, xfxsy+x^Xs, x\y-\-x\, X\x\ — x\y}. Finally, if we dehomogenise G', we obtain the set 

T-J • r /y»3 I ,y»6 ,y» ry ^ I /y>2 ,y> 3 ™> ,-y» I /y />> 3 ,yj I /-y>3 ,-y» /y>3 /-y>3 ,-y»2 ,-y i < 2i I ,y>3 ,-y»2 ,-y»2 y, I ,y»3 ,-y» /y»2 I ,-y-, 3 1 . 

±± . — \ 2 3 ' 1 2 2 3' 1 2 i - "^2 3 5 ^ 3 ? Ju \Ju ^ 2 ' 13 I 23' 3 1 t -* j, 2 3? ^ ^ i ^ 2 J 5 

however this set is not a Janet Involutive Basis for F, as can be verified by checking that 
(with respect to H) the variable £3 is nonmultiplicative for the polynomial x\ + £3, and 



CHAPTER 4. COMMUTATIVE INVOLUTIVE BASES 



9n 



the prolongation of the polynomial x\ + x\ by the variable £3 is involutively irreducible 
with respect to H . 

The reason why H is not an Involutive Basis for J in the above example is that the Janet 
multiplicative variables for the set G' do not correspond to the Janet multiplicative vari- 
ables for the set H = d(G'). This means that we cannot use the fact that all prolongations 
of elements of G' involutively reduce to zero using G' to deduce that all prolongations of 
elements of H involutively reduce to zero using H. To do this, our involutive division must 
satisfy the following additional property, which ensures that the multiplicative variables 
of G' and d(G') do correspond to each other. 

Definition 4.5.3 Let O be a fixed extendible monomial ordering. An involutive division 
/ is extendible with respect to O if, given any set of polynomials P, we have 

Mi(p,P)\{y} = Mi(d(p),d(P)) 
for all peP, where y is the homogenising variable. 

In Section 2.5.2, we saw that of the monomial orderings defined in Section 1.2.1, only Lex, 
InvLex and DegRevLex are extendible. Let us now consider which involutive divisions 
are extendible with respect to these three monomial orderings. 

Proposition 4.5.4 The Thomas involutive division is extendible with respect to Lex, 
InvLex and DegRevLex. 

Proof: Let P be an arbitrary set of polynomials over a polynomial ring containing vari- 
ables Xi, . . . ,x n and a homogenising variable y. Because the Thomas involutive division 
decides whether a variable Xj (for 1 ^ i ^ n) is multiplicative for a polynomial p G P 
independent of the variable y, it is clear that Xi is multiplicative for p if and only if x» 
is multiplicative for d(p) with respect to any of the monomial orderings Lex, InvLex and 
DegRevLex. It follows that Mr{p, P) \ {y} = Mr{d{p), d(P)) as required. □ 

Proposition 4.5.5 The Pommaret involutive division is extendible with respect to Lex 
and DegRevLex. 

Proof: Let p be an arbitrary polynomial over a polynomial ring containing variables 
Xi, . . . ,x n and a homogenising variable y. Because we are using either the Lex or the 
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DegRevLex monomial orderings, the variable y must be lexicographically less than any 
of the variables x±, . . . , x n , and so we can state (without loss of generality) that p belongs 
to the polynomial ring R[x\, . . . , x n , y]. Let (e 1 , e 2 , . . . , e n , e n+1 ) be the multidegree corre- 
sponding to the monomial LM(jo), and let 1 ^ i ^ n + 1 be the smallest integer such that 
> 0. 

If i — n + 1, then the variables x\, . . . , x n will all be multiplicative for p. But then d(p) 
will be a constant, so that the variables Xi, . . . , x n will also all be multiplicative for d(p). 

If % ^ n, then the variables x±, . . . , Xj will all be multiplicative for p. But because y is the 
smallest variable, it is clear that i will also be the smallest integer such that f l > 0, where 
(J 1 , / 2 , . . . , f n ) is the multidegree corresponding to the monomial LM(d(p)). It follows 
that the variables Xx, . . . ,Xi will also all be multiplicative for d(p), and so we can conclude 
that M v (p, P) \ {y} = M v (d(p), d(P)) as required. □ 

Proposition 4.5.6 The Pommaret involutive division is not extendible with respect to 
InvLex. 

Proof: Let p := yxi + x\ be a polynomial over the polynomial ring Q[y, X\, X2], where 
y is the homogenising variable (which must be greater than all other variables in order 
for InvLex to be extendible). As LM(p) = yx2 with respect to InvLex, it follows that 
A4-p(p) = {y}. Further, as LM(d(p)) = LM(x2+xf) = X2 with respect to InvLex, it follows 
that M.-p{d{p)) = {x\,X2}- We can now deduce that the Pommaret involutive division is 
not extendible with respect to InvLex, as Ai-pip) \ {y} -M-p(d(p)), or 7^ {xi,x 2 }. □ 

Proposition 4.5.7 The Janet involutive division is extendible with respect to InvLex. 

Proof: Let P be an arbitrary set of polynomials over a polynomial ring containing 
variables xx,...,x n and a homogenising variable y. Because we are using the InvLex 
monomial ordering, the variable y must be lexicographically greater than any of the 
variables X\, . . . ,x n , and so we can state (without loss of generality) that p belongs to 
the polynomial ring R[y,x\, . . . ,x n }. But the Janet involutive division will then decide 
whether a variable Xi (for 1 ^ i ^ n) is multiplicative for a polynomial p G P independent 
of the variable y, so it is clear that Xj is multiplicative for p if and only if X{ is multiplicative 
for d(p), and so (with respect to InvLex) M. j(p, P) \ {y} = M. j(d(p), d(P)) as required. 

□ 
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Proposition 4.5.8 The Janet involutive division is not extendible with respect to Lex or 
DegRevLex. 

Proof: Let U := {xly, Xiy 2 } be a set of monomials over the polynomial ring Q[xi,y], 
where y is the homogenising variable (which must be less than x\ in order for Lex and 
DegRevLex to be extendible). The Janet multiplicative variables for U (with respect to 
Lex and DegRevLex) are shown in the table below. 



u 


Mj{u,U) 


x\y 




xiy 2 


{xi,y} 



When we dehomogenise U with respect to y, we obtain the set d{U) := {x\, Xi) with 
multiplicative variables as follows. 



d{u) 


Mj(d(u),d(U)) 


x\ 










It is now clear that Janet is not an extendible involutive division with respect to Lex or 
DegRevLex, as M j{x x y 2 , U) \{y} ^ M j(xi, d(U)), or {xj ^ 0. □ 

Proposition 4.5.9 Let G' be a set of polynomials over a polynomial ring containing vari- 
ables Xi, . . . , x n and a homogenising variable y. If (i) G' is an Involutive Basis with respect 
to some extendible monomial ordering O and some involutive division I that is extendible 
with respect to O; and (ii) d(G') is an autoreduced set, then d(G') is an Involutive Basis 
with respect to O and I . 

Proof: By Definition 4.2.7, we can show that d(G') is an Involutive Basis with respect 
to O and I by showing that any multiple d(g')t of any polynomial d(g') G d(G') by any 
term t involutively reduces to zero using d(G'). Because G' is an Involutive Basis with 
respect to O and I, the polynomial g't involutively reduces to zero using G' by the series 
of involutive reductions 
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where g' a . G G' for all 1 ^ % ^ A. 

Claim: The polynomial d(g')t involutively reduces to zero using d(G') by the series of 
involutive reductions 

d(9 ' ]t -rT^)^ -ri( 9 > a2 ) d{h2) -r% g > a3) ■■■ -fz ^)°' 

where d{g' a .) G d(G') for all 1 < % < A. 

Proof of Claim: It is clear that if a polynomial g'j G G' involutively reduces a polynomial 
h, then the polynomial d(g'j) G d{G') will always conventionally reduce the polynomial 
d(h). Further, knowing that / is extendible with respect to O, we can state that d{g'-) 
will also always involutively reduce d(h). The result now follows by noticing that d(G') 
is autoreduced, so that d{g') is the only possible involutive divisor of d(h), and hence the 
above series of involutive reductions is the only possible way of involutively reducing the 
polynomial d(g')t. □ 

Open Question 1 If the set G returned by the procedure outlined in Definition 4.5.1 is 
not autoreduced, under what circumstances does autoreducing G result in obtaining a set 
that is an Involutive Basis for the ideal generated by Fl 

Let us now consider two examples illustrating that the set G returned by the procedure 
outlined in Definition 4.5.1 may or may not be autoreduced. 

Example 4.5.10 Let F := {2x\X 2 + x\ + 5, x\ + X\ + 8} be a basis generating an ideal J 
over the polynomial ring Q[xi, x 2 ], and let the monomial ordering be InvLex. Ordinarily, 
we can compute an Involutive Basis G := \x\ + x\ + 8, 1x\x 2 + x\ + 5, 10x2 — x\— Ax\ — 
37xi, x\ + 4xf + 42xf + 25} for F with respect to the Janet involutive division by using 
Algorithm 9. 

Taking the homogeneous route (using Definition 4.5.1), we can homogenise F to obtain 
the basis F' := {2xiX 2 + x\ + 5y 2 , x\ + yx\ + 8y 2 } over the polynomial ring Q[y, x±, x 2 ], 
where y is the homogenising variable (which must be greater than all other variables). 
Computing an Involutive Basis for the set F' with respect to the Janet involutive division 
using Algorithm 9, we obtain the basis G' := {x\+yxi+&y 2 , 2xix 2 +xf+5y 2 , 10y 2 x 2 —xf — 
4yx 2 — 37y 2 xi, x\ + 4yxf + 42y 2 x 2 + 25y 4 }. When we dehomogenise this basis, we obtain 
the set d{G') := {x| + xi + 8, 2x 1 x 2 + x 2 1 + 5, 10x 2 -x\ -Ax\ - 37zi, x\ + 4x? + 42xf + 25}. 
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It is now clear that the set d(G') is autoreduced (and hence d(G') is an Involutive Basis 
for J) because d(G') = G. 

Example 4.5.11 Let F := \x\ + 2x 1 x 2 + 5, x 2 + x 2 + 8} be a basis generating an ideal J 
over the polynomial ring Q[x±, x 2 ], and let the monomial ordering be InvLex. Ordinarily, 
we can compute an Involutive Basis G := \x\ — 2x\ — lQx\ + 5, X2 + x\ + 8, x\ — 2x\ + 
16x\ ~~ 16a;i + 69} for F with respect to the Janet involutive division by using Algorithm 
9. 

Taking the homogeneous route (using Definition 4.5.1), we can homogenise F to obtain 
the basis F' := {x\ + 2x 1 x 2 + 5y 2 , yx 2 + x\ + 8y 2 } over the polynomial ring Q[y, x±, x 2 ], 
where y is the homogenising variable (which must be greater than all other variables). 
Computing an Involutive Basis for the set F' with respect to the Janet involutive division 
using Algorithm 9, we obtain the basis G' := \x\ + 2xi£ 2 + 5y 2 , x\x 2 + 2xf — 8yxf + 
16y 2 Xi — 69y 3 , yx\X 2 + x\ + 8y 2 Xi, t/x 2 + x\ + 8y 2 , — 1yx\ + \6y 2 x\ — 16y 3 Xi + 69y 4 }. 
When we dehomogenise this basis, we obtain the set d(G') := {x\ + 2xix 2 + 5, x\x 2 + 
2x 3 -8x 2 + 16xi -69, xix 2 + x 3 + 8xi, x 2 + x 2 + 8, - 2xf + 16x 2 - 16xi + 69}. This time 
however, because the set d{G') is not autoreduced (the polynomial Xix 2 +x\ + 8xi G d(G") 
can involutively reduce the second term of the polynomial x\ + 2xiX 2 + 5 G d(G')), we 
cannot deduce that d(G') is an Involutive Basis for J. 

Remark 4.5.12 Although the set G returned by the procedure outlined in Definition 
4.5.1 may not always be an Involutive Basis for the ideal generated by F, because the set 
G' will always be an Involutive Basis (and hence also a Grobner Basis), we can state that 
G will always be a Grobner Basis for the ideal generated by F (cf. Definition 2.5.7). 

4.5.3 Logged Involutive Bases 

Just as a Logged Grobner Basis expresses each member of the Grobner Basis in terms 
of members of the original basis from which the Grobner Basis was computed, a Logged 
Involutive Basis expresses each member of the Involutive Basis in terms of members of 
the original basis from which the Involutive Basis was computed. 

Definition 4.5.13 Let G = {g±, . . . , g p } be an Involutive Basis computed from an initial 
basis F = {fi, ■ ■ ■ , f m }- We say that G is a Logged Involutive Basis if, for each G G, 
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we have an explicit expression of the form 



9i = ^2 ta f> 



a=l 



where the t a are terms and fk a G F for all 1 ^ a ^ f3. 

Proposition 4.5.14 Given a finite basis F = {fx, . . . , f m }, it is always possible to com- 
pute a Logged Involutive Basis for F. 

Proof: Let G = {gi,...,g p } be an Involutive Basis computed from the initial basis 
F = {fi, . . . , fm} using Algorithm 9 (where fa G R[xi, . . . , x n ] for all /, G F). If an 
arbitrary gi G G is not a member of the original basis F, then either is an involutively 
reduced prolongation, or g { is obtained through the process of autoreduction. In the 
former case, we can express g\ in terms of members of F by substitution because 



for a variable Xj] terms t a and polynomials h and hf ta which we already know how to 
express in terms of members of F . In the latter case, 

P 





a=l 



for terms t a and polynomials h and h^ a which we already know how to express in terms 
of members of F, so it follows that we can again express gi in terms of members of F . □ 



Chapter 5 



Noncommutative Involutive Bases 



In the previous chapter, we introduced the theory of commutative Involutive Bases and 
saw that such bases are always commutative Grobner Bases with extra structure. In this 
chapter, we will follow a similar path, in that we will define an algorithm to compute a 
noncommutative Involutive Basis that will serve as an alternative method of obtaining a 
noncommutative Grobner Basis, and the noncommutative Grobner Bases we will obtain 
will also have some extra structure. 

As illustrated by the diagram shown below, the theory of noncommutative Involutive 
Bases will draw upon all the theory that has come before in this thesis, and as a con- 
sequence will inherit many of the restrictions imposed by this theory. For example, our 
noncommutative Involutive Basis algorithm will not be guaranteed to terminate precisely 
because we are working in a noncommutative setting, and noncommutative involutive 
divisions will have properties that will influence the correctness and termination of the 
algorithm. 

Commutative Grobner Bases >■ Commutative Involutive Bases 



Noncommutative Grobner Bases *- Noncommutative Involutive Bases 
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5.1 Noncommutative Involutive Reduction 

Recall that in a commutative polynomial ring, a monomial u 2 is an involutive divisor of a 
monomial u\ if U\ = u 2 U3 for some monomial 113 and all variables in M3 are multiplicative 
for u-i- In other words, we are able to form u\ from « 2 by multiplying U2 with multiplicative 
variables. 

In a noncommutative polynomial ring, an involutive division will again induce a restricted 
form of division. However, because left and right multiplication are separate processes in 
noncommutative polynomial rings, we will require the notion of left and right multiplicative 
variables in order to determine whether a conventional divisor is an involutive divisor, so 
that (intuitively) a monomial w 2 will involutively divide a monomial Ui if we are able to 
form u\ from U2 by multiplying U2 on the left with left multiplicative variables and on the 
right by right multiplicative variables. 

More formally, let u\ and U2 be two monomials over a noncommutative polynomial ring, 
and assume that U\ is a conventional divisor of U2, so that u\ = U3U2U4 for some monomials 
u 3 and u 4 . Assume that an arbitrary noncommutative involutive division / partitions the 
variables in the polynomial ring into sets of left multiplicative and left nonmultiplicative 
variables for 112, and also partitions the variables in the polynomial ring into sets of right 
multiplicative and right nonmultiplicative variables for u 2 . Let us now define two methods 
of deciding whether w 2 is an involutive divisor of U\ (written w 2 1/ u-i), the first of which 
will depend only on the first variable we multiply w 2 with on the left and on the right in 
order to form U\, and the second of which will depend on all the variables we multiply it 2 
with in order to form U\. 

Definition 5.1.1 Let U\ = U3U2U4, and let / be defined as in the previous paragraph. 

• (Thin Divisor) u 2 \i U\ if the variable Suffix(u3, 1) (if it exists) is in the set of left 
multiplicative variables for w 2 , and the variable Prefix(w 4 , 1) (again if it exists) is in 
the set of right multiplicative variables for w 2 . 

• (Thick Divisor) u 2 \i u\ if all the variables in M3 are in the set of left multiplicative 
variables for w 2 , and all the variables in M4 are in the set of right multiplicative 
variables for u 2 . 

Remark 5.1.2 We introduce two methods for determining whether a conventional di- 
visor is an involutive divisor because each of the methods has its own advantages and 
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disadvantages. From a theoretical standpoint, using thin divisors enables us to follow the 
path laid down in Chapter 4, in that we are able to show that a Locally Involutive Basis is 
an Involutive Basis by proving that the involutive division used is continuous, something 
that we cannot do if thick divisors are being used. On the other hand, once we have 
obtained our Locally Involutive Basis, involutive reduction with respect to thick divisors 
is more efficient than it is with respect to thin divisors, as less work is required in order to 
determine whether a monomial is involutively divisible by a set of monomials. For these 
reasons, we will use thin divisors when presenting the theory in this chapter (hence the 
following definition), and will only use thick divisors when, by doing so, we are able to 
gain some advantage. 

Remark 5.1.3 Unless otherwise stated, from now on we will use thin divisors to deter- 
mine whether a conventional divisor is an involutive divisor. 

Example 5.1.4 Let U\ := xyz 2 x; u[ := yz 2 y and w 2 := z 2 be three monomials over the 
polynomial ring 1Z = Q(x, y, z), and let an involutive division / partition the variables in 
1Z into the following sets of variables for the monomial w 2 : left multiplicative = {x,y}; 
left nonmultiplicative = {z}; right multiplicative = {x, z}; right nonmultiplicative = 
{y}. It is true that u 2 conventionally divides both monomials U\ and u^, but u 2 only 
involutively divides monomial u\ as, defining w 3 := xy; w 4 := x; u' 3 = y and u' 4 = y (so 
that u\ = and u[ = u'^u'^), we observe that the variable Suffix(u 3 , 1) = y is in 

the set of left multiplicative variables for w 2 ; the variable Prefix(w 4 , 1) = x is in the set of 
right multiplicative variables for « 2 ; but the variable Prefix^, 1) = y is not in the set of 
right multiplicative variables for u 2 . 

Let us now formally define what is meant by a (noncommutative) involutive division. 

Definition 5.1.5 Let M denote the set of all monomials in a noncommutative polynomial 
ring 7Z = R(x\, . . . ,x n ), and let U C M. The involutive cone Ci(u, U) of any monomial 
u G U with respect to some involutive division I is defined as follows. 

Ci(u, U) = {v 1UV2 such that v 1 ,v 2 £ M and u \j Wita> 2 }. 

Definition 5.1.6 Let M denote the set of all monomials in a noncommutative polynomial 
ring 1Z = R{xi, . . . , x n ). A strong involutive division I is defined on M if, given any finite 
set of monomials U C M, we can assign a set of left multiplicative variables A4f(u, U) C 
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{xi, . . . , x n } and a set of right multiplicative variables M.f{u, U) C {x±, . . . , x n } to any 
monomial u E U such that the following three conditions are satisfied. 

• If there exist two elements ui,u 2 G U such that Ci(ui,U) fl Ci(u2,U) ^ 0, then 
either C/(wi, £7) C Cr(w2, C/) or Ci{u2, U) C Cj(mi, ?7). 

• Any monomial w G C/(u, [/) is involutively divisible by u in one way only, so that 
if u appears as a subword of v in more than one way, then only one of these ways 
allows us to deduce that u is an involutive divisor of v. 

• If V C U, then Mf(v, U) C Mf(v, V) and (v, U) C Aff (u, 7) for all «eV, 

If any of the above conditions are not satisfied, the involutive division is called a weak 
involutive division. 

Remark 5.1.7 We shall refer to the three conditions of Definition 5.1.6 as (respectively) 
the Disjoint Cones condition, the Unique Divisor condition and the Subset condition. 

Definition 5.1.8 Given an involutive division /, the involutive span Ci(U) of a set of 
noncommutative monomials U with respect to I is given by the expression 

d(U)= \Jb(u,U). 

Remark 5.1.9 The (conventional) span of a set of noncommutative monomials U is given 
by the expression 

C(U)= \JC(u,U), 

where C(u,U) = {v\uv2 such that t>i,i>2 are monomials} is the (conventional) cone of a 
monomial u G U. 

Definition 5.1.10 If an involutive division / determines the left and right multiplicative 
variables for a monomial u G U independent of the set U, then J is a global division. 
Otherwise, J is a local division. 

Remark 5.1.11 The multiplicative variables for a set of polynomials P (whose terms 
are ordered by a monomial ordering O) are determined by the multiplicative variables for 
the set of leading monomials LM(P). 
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In Algorithm 10, we specify how to involutively divide a polynomial p with respect to a set 
of polynomials P using thin divisors. Note that this algorithm combines the modifications 
made to Algorithm 1 in Algorithms 2 and 7. 

Algorithm 10 The Noncommutative Involutive Division Algorithm 

Input: A nonzero polynomial p and a set of nonzero polynomials P = {pi, . . . ,p m } 
over a polynomial ring R(x±, . . . x n ); an admissible monomial ordering O; an involutive 
division /. 

Output: Renirfjo, P) := r, the involutive remainder of p with respect to P. 
r = 0; 

while (p 7^ 0) do 

u = LM(p); c = LC(p); j = 1; found = false; 
while (J ^ m) and (found == false) do 
if (LM(pj-) |/ u) then 
found = true; 

choose ui and ti r such that u = ueLM(pj)u r , the variable Suffix^, 1) (if it exists) 
is left multiplicative for pj, and the variable Prefix(u r , 1) (again if it exists) is 
right multiplicative for pj; 
P = p- (cLCip^-^uePjUr] 
else 

3=3 + 1; 

end if 
end while 

if (found == false) then 

r = r + LT(p); p = p — LT(p); 

end if 
end while 
return r; 



Remark 5.1.12 Continuing the convention from Algorithm 2, we will always choose the 
ue with the smallest degree in the line 'choose ui and u r such that. . .' in Algorithm 10. 

Example 5.1.13 Let P := {x 2 — 2y, xy — x, y 3 + 3} be a set of polynomials over the 
polynomial ring Q(x,y) ordered with respect to the DegLex monomial ordering, and 
assume that an involutive division / assigns multiplicative variables to P as follows. 
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V 


Mf(LM(p),LM(P)) 


M?(LM(p),LM(P)) 


x 2 — 2y 


{x,y} 


{x} 


xy — x 


M 


{x,y} 


y 3 + 3 


{x} 






Here is a dry run for Algorithm 10 when we involutively divide the polynomial p := 
2x 2 y 3 + yxy with respect to P to obtain the polynomial yx — 12y, where A; B; C and D 
refer to the tests (p ^ 0)?; ((j ^ 3) and (found == false))?; (LM(pj) |/ n)? and (found 
== false)? respectively. 
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5.2 Prolongations and Autoreduction 

Just as in the commutative case, we will compute a (noncommutative) Locally Involutive 
Basis by using prolongations and autoreduction, but here we have to distinguish between 
left prolongations and right prolongations. 

Definition 5.2.1 Given a set of polynomials P, a left prolongation of a polynomial p G 
P is a product Xip, where Xi ^ Aif(LM(p),LM(P)) with respect to some involutive 
division J; and a right prolongation of a polynomial p G P is a product pXj, where 
^ A4f (LM(p), LM(P)) with respect to some involutive division /. 

Definition 5.2.2 A set of polynomials P is said to be autoreduced if no polynomial p G P 
exists such that p contains a term which is involutively divisible (with respect to P) by 
some polynomial p' G P\ {p}. 

Algorithm 11 The Noncommutative Autoreduction Algorithm 

Input: A set of polynomials P = {pi,P2, ■ ■ ■ ,Pa}] an involutive division I. 
Output: An autoreduced set of polynomials Q = {q±, q 2 , . . . , qp}. 

while (3 pi G P such that Rem/(p,, P, P \ {pi}) ^ p%) do 
p\ = Rem/Oi, P,P\ {p-i}); 

P = P\{ Pi }; 

if (p'. 0) then 
P = PU{p' z }; 
end if 
end while 

Q = P; 

return Q; 



Remark 5.2.3 With respect to a strong involutive division, the involutive cones of an 
autoreduced set of polynomials are always disjoint. 

Remark 5.2.4 The notation Rem/(pj, P,P \ {pi}) used in Algorithm 11 has the same 
meaning as in Definition 4.2.2. 

Proposition 5.2.5 Let P be a set of polynomials over a noncommutative polynomial ring 
1Z = R(xi, . . . , x n ), and let f and g be two polynomials also in 1Z. If P is autoreduced with 
respect to a strong involutive division I , then Rem/(/, P) + Rem/(g, P) = Rem/(/ + g, P). 
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Proof: Let /' := Rem/(/, P); g' := Renir(g,P) and hi := Rem/(/i, P), where /i := / + #. 
Then, by the respective involutive reductions, we have expressions 

A 

f = f -^2u a p aa v a ; 

0=1 

B 
6=1 

and 

c 

h' = h-) j u c p lc v c , 

c=l 

where p aa , p^, p 7c G P and u a ,v a ,Ub,v b ,u c ,v c are terms such that each p aa , pp b and p 7c 
involutively divides each u a p aa v a , UbPp b Vb and u c p lc v c respectively. 

Consider the polynomial h! — f — g'. By the above expressions, we can deduce 1 that 

a b c D 

ti - f - g' = X U aPaa V a + ^ U bPpb V b ~ ^ M ^ 7c ^ C =: ^ U dPS d V d- 
a=l 6=1 c=l d=l 

Claim: Rem 7 (/i' - /' - P) = 0. 

Proof of Claim: Let t denote the leading term of the polynomial X^d=i u dPs d Vd- Then 
LM(£) = LM(ukPs k Vk) for some 1 ^ k ^ D since, if not, there exists a monomial 

LM(uyp Sh ,Vy) = \M{u k „p Sk „V k i,) = : w 

for some 1 ^ k', k" «C D (with p,5 fc , ^ Ps k ,i) such that w is involutively divisible by the two 
polynomials p§ ,, and p<s,„, contradicting Definition 5.1.6 (recall that / is strong and P is 
autoreduced, so that the involutive cones of P are disjoint). It follows that we can use 
Ps k to eliminate t by involutively reducing h! — f — g' as shown below. 

D k-1 D 

d=l d=\ d=k+l 

By induction, we can apply a chain of involutive reductions to the right hand side of 
Equation (5.1) to obtain a zero remainder, so that Remj(h' — f — g', P) = 0. □ 

L For 1 ^ d < A, u d p Sd v d = u a p aa v a (1 ^ a ^ A); for A + 1 ^ d ^ A + B, u d p$ d v d = u b pp b v b 
(1 < b < B); and for A + B + 1 < d < A + B + C =: D, u d p Sd v d = u c p lc v c (Uc^ C). 
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To complete the proof, we note that since /', g' and h! are all involutively irreducible, we 
must have Kemj(h' — f — g', P) = h' — f — g'. It therefore follows that h! — f — g' = 0, 
or h! = f + g' as required. □ 

Definition 5.2.6 Given an involutive division / and an admissible monomial ordering O, 
an autoreduced set of noncommutative polynomials P is a Locally Involutive Basis with 
respect to I and O if any (left or right) prolongation of any polynomial p, £ P involutively 
reduces to zero using P. 

Definition 5.2.7 Given an involutive division I and an admissible monomial ordering O, 
an autoreduced set of noncommutative polynomials P is an Involutive Basis with respect 
to / and O if any multiple upiV of any polynomial Pi £ P by any terms u and v involutively 
reduces to zero using P. 

5.3 The Noncommutative Involutive Basis Algorithm 

To compute a (noncommutative) Locally Involutive Basis, we use Algorithm 12, an algo- 
rithm that is virtually identical to Algorithm 9, apart from the fact that at the beginning 
of the first while loop, the set S is constructed in different ways. 

5.4 Continuity and Conclusivity 

In the commutative case, when we construct a Locally Involutive Basis using Algorithm 
9, we know that the algorithm will always return a commutative Grobner Basis as long 
as we use an admissible monomial ordering and the chosen involutive division possesses 
certain properties. In summary, 

(a) Any Locally Involutive Basis returned by Algorithm 9 is an Involutive Basis if the 
involutive division used is continuous (Proposition 4.3.3); 

(b) Algorithm 9 always terminates if (in addition) the involutive division used is con- 
structive, Noetherian and stable (Proposition 4.4.8); 

(c) Every Involutive Basis is a Grobner Basis (Theorem 4.4.9). 

In the noncommutative case, we cannot hope to produce a carbon copy of the above 
results because a finitely generated basis may have an infinite Grobner Basis, leading to 
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Algorithm 12 The Noncommutative Involutive Basis Algorithm 

Input: A Basis F = {fi,f2, ---, fm} f° r an ideal J over a noncommutative polynomial 
ring R(xx, . . .x n ); an admissible monomial ordering O; an involutive division I. 

Output: A Locally Involutive Basis G = {gi,g2, ■ ■ ■ ,g P } for J (in the case of termina- 
tion). 

G = 0; 

F = Autoreduce(F); 
while (G == 0) do 

S = {xj \feF, Xi <£ Mf(f, F)} U {fx, \feF, Xi i Mf(f,F)}; 
s' = 0; 

while (S ^ 0) and (s' == 0) do 

Let s be a polynomial in S whose lead monomial is minimal with respect to O; 

S = S\{s}; 

s' = Rem/(s, F); 
end while 
if (V ^ 0) then 

F = Autoreduce(F U {s'»; 
else 

G = F; 
end if 
end while 
return G; 
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the conclusion that Algorithm 12 does not always terminate. The best we can therefore 
hope for is if an ideal generated by a set of polynomials F possesses a finite Grobner 
Basis with respect to some admissible monomial ordering O, then F also possesses a 
finite Involutive Basis with respect to O and some involutive division J. We shall call any 
involutive division that possesses this property conclusive. 

Definition 5.4.1 Let F be an arbitrary basis generating an ideal over a noncommutative 
polynomial ring, and let O be an arbitrary admissible monomial ordering. An involutive 
division I is conclusive if Algorithm 12 terminates with F, I and O as input whenever 
Algorithm 5 terminates with F and O as input. 

Of course it is easy enough to define the above property, but much harder to prove that a 
particular involutive division is conclusive. In fact, no involutive division defined in this 
thesis will be shown to be conclusive, and the existence of such divisions will be left as 
an open question. 

5.4.1 Properties for Strong Involutive Divisions 

Here is a summary of facts that can be deduced when using a strong involutive division. 

(a) Any Locally Involutive Basis returned by Algorithm 12 is an Involutive Basis if the 
involutive division used is strong and continuous (Proposition 5.4.3); 

(b) Algorithm 12 always terminates whenever Algorithm 5 terminates if (in addition) the 
involutive division used is conclusive; 

(c) Every Involutive Basis with respect to a strong involutive division is a Grobner Basis 
(Theorem 5.4.4). 

Let us now prove the assertions made in parts (a) and (c) of the above list, beginning by 
defining what is meant by a continuous involutive division in the noncommutative case. 

Definition 5.4.2 Let I be a fixed involutive division; let w be a fixed monomial; let U be 
any set of monomials; and consider any sequence (u±, u% . . . , Uf.) of monomials from U 
(ui G U for all 1 ^ i ^ A;), each of which is a conventional divisor of w (so that w = liUiTi 
for all 1 ^ % ^ k, where the £{ and the r, are monomials). For all 1 ^ % < k, suppose that 
the monomial satisfies exactly one of the following conditions. 
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(a) Ui + i involutively divides a left prolongation of Ui, so that deg(£j) ^ 1; Suffix^, 1) ^ 
A4j(ui,U); and u i+ i \j (Suffix(£j, 

(b) Wj+i involutively divides a right prolongation of u^, so that deg(rj) ^ 1; Prefix(ri, 1) ^ 
.Mf C/); and u i+1 | 7 Uj (Prefix^;, 1)). 

Then / is continuous atw if all the pairs (£{, r{) are distinct r*) 7^ (£,-, r 3 -) for all i 7^ j); 
J is a continuous involutive division if I is continuous for all possible w. 

Proposition 5.4.3 If an involutive division I is strong and continuous, and a given set 
of polynomials P is a Locally Involutive Basis with respect to I and some admissible 
monomial ordering O, then P is an Involutive Basis with respect to I and O. 

Proof: Let / be a strong and continuous involutive division; let O be an admissible 
monomial ordering; and let P be a Locally Involutive Basis with respect to / and O. 
Given any polynomial p G P and any terms u and v, in order to show that P is an 
Involutive Basis with respect to / and O, we must show that upv — 0- 

If p I / upv we are done, as we can use p to involutively reduce upv to obtain a zero 
remainder. Otherwise, either 3yi ^ Aij(LM(p), LM(P)) such that yi = Suffix(u, 1), 
or 3yi ^ Mf (LM(p), LM(P)) such that yi = Prefix(w, 1). Without loss of generality, 
assume that the first case applies. By Local Involutivity, the prolongation y±p involutively 
reduces to zero using P. Assuming that the first step of this involutive reduction involves 
the polynomial pi G P, we can write 

A 

y lP = u lPlVl + 

(5.2) 

a=l 

where p aa G P and u±, vi,u aa ,v aa are terms such that p\ and each p aa involutively divide 
U1P1V1 and each u aa p aa v aa respectively. Multiplying both sides of Equation (5.2) on the 
left by u' := Prefix(u, deg(u) — 1) and on the right by v, we obtain the equation 

A 

Upv = u'uiPiVxV + ^ U ' U » a Paa V a a V- (5.3) 
a=l 

If Pi |/ upv, it is clear that we can use p\ to involutively reduce the polynomial upv to 
obtain the polynomial ^2a=i u ' u caPa a v a a v - By Proposition 5.2.5, we can then continue 
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to involutively reduce upv by repeating this proof on each polynomial u'u aa p aa v aa v in- 
dividually (where 1 ^ a ^ A), noting that this process will terminate because of the 
admissibility of O (we have LM(u'u aa Pa a v aa v) < LM(upv) for all 1 ^ a ^ A). 

Otherwise, if pi does not involutively divide upv, either 3y 2 £ Mf(LM(p 1 ), LM(P)) such 
that y 2 = Suffix(w'wi,l), or 3y 2 £ Mf (LM(pi), LM(P)) such that y 2 = Prefix (vt v, 1). 
This time (again without loss of generality), assume that the second case applies. By 
Local Involutivity, the prolongation p\y 2 involutively reduces to zero using P. Assuming 
that the first step of this involutive reduction involves the polynomial p 2 £ P, we can 
write 

B 

piy 2 = u 2 p 2 v 2 + u l3 b P/3 b V(3 b , (5.4) 

6=1 

where pp b £ P and u 2 ,v 2 ,up b ,vp b are terms such that p 2 and each pp b involutively divide 
u 2 p 2 v 2 and each up b pp b vp b respectively. Multiplying both sides of Equation (5.4) on the 
left by u'u\ and on the right by v' := Suffix(w 1 w, deg(v\v) — 1), we obtain the equation 

B 

u'uiPiViV = v!u x U 2 p 2 V 2 v' + Y U ' U l U P b PPb V l3b V ' ■ ( 5 - 5 ) 

6=1 

Substituting for u'u\p\Viv from Equation (5.5) into Equation (5.3), we obtain the equation 

A B 
Upv = UU X U 2 p 2 V 2 V + ^ U ' U a a Pa a V aa V + ^ u'^UfoPfoVfoV '. (5.6) 

o=l 6=1 

If p 2 \i upv, it is clear that we can use p 2 to involutively reduce the polynomial upv to 
obtain the polynomial ^„ =1 u'u aa p aa v aa v + Yl,b=i u ' u i u PbPPb v Pb v ' ■ ^ s before, we can then 
use Proposition 5.2.5 to continue the involutive reduction of upv by repeating this proof 
on each summand individually. 

Otherwise, if p 2 does not involutively divide upv, we continue by induction, obtaining a 
sequence p,pi,p 2 ,p%, ... of elements in P. By construction, each element in the sequence 
divides upv. By continuity (at LM(upv)), no two elements in the sequence divide upv in 
the same way. Because upv has a finite number of subwords, the sequence must be finite, 
terminating with an involutive divisor p 1 £ P of upv, which then allows us to finish the 
proof through use of Proposition 5.2.5 and the admissibility of O. □ 

Theorem 5.4.4 An Involutive Basis with respect to a strong involutive division is a 
Grobner Basis. 
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Proof: Let G = {gi, . . . ,g m } be an Involutive Basis with respect to some strong in- 
volutive division / and some admissible monomial ordering O, where each £ G (for 
all 1 ^ % ^ m) is a member of the polynomial ring R(x±, . . . ,x n ). To prove that G is 
a Grobner Basis, we must show that all S-polynomials involving elements of G conven- 
tionally reduce to zero using G. Recall that each S-polynomial corresponds to an overlap 
between the lead monomials of two (not necessarily distinct) elements gj £ G. Consider 
such an arbitrary overlap, with corresponding S-polynomial 

S-pol^,^,^-,^) = ciUgiTi - cxt^gfy 

Because G is an Involutive Basis, it is clear that C2Ugi r i — j^~ G and c\ljgjTj — J^~ G 0- 
By Proposition 5.2.5, it follows that S-pol(^, gi,£j, gj) — j*- 0. But every involutive 
reduction is a conventional reduction, so we can deduce that S-pol(^j, gi,£j, gj) — >g as 
required. □ 

Lemma 5.4.5 Given an Involutive Basis G with respect to a strong involutive division, 
remainders are involutively unique with respect to G. 



Proof: Let G be an Involutive Basis with respect to some strong involutive division / 
and some admissible monomial ordering O. Theorem 5.4.4 tells us that G is a Grobner 
Basis with respect to O and thus remainders are conventionally unique with respect to 
G. To prove that remainders are involutively unique with respect to G, we must show 
that the conventional and involutive remainders of an arbitrary polynomial p with respect 
to G are identical. For this it is sufficient to show that a polynomial p is conventionally 
reducible by G if and only if it is involutively reducible by G. (=>-) Trivial as every 
involutive reduction is a conventional reduction. (<=) If a polynomial p is conventionally 
reducible by a polynomial g £ G, it follows that LM(p) = uLM(g)v for some monomials 
u and v. But G is an Involutive Basis, so there must exist a polynomial g' £ G such that 
LM(g') \i uLM(g)v. Thus p is also involutively reducible by G. □ 

5.4.2 Properties for Weak Involutive Divisions 

While it is true that the previous three results (Proposition 5.4.3, Theorem 5.4.4 and 
Lemma 5.4.5) do not apply if a weak involutive division has been chosen, we will now 
show that corresponding results can be obtained for weak involutive divisions that are 
also Grobner involutive divisions. 
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Definition 5.4.6 A weak involutive division / is a Grobner involutive division if every 
Locally Involutive Basis with respect to I is a Grobner Basis. 

It is an easy consequence of Definition 5.4.6 that any Involutive Basis with respect to a 
weak and Grobner involutive division is a Grobner Basis; it therefore follows that we can 
also prove an analog of Lemma 5.4.5 for such divisions. To complete the mirroring of 
the results of Proposition 5.4.3, Theorem 5.4.4 and Lemma 5.4.5 for weak and Grobner 
involutive divisions, it remains to show that a Locally Involutive Basis with respect to a 
weak; continuous and Grobner involutive division is an Involutive Basis. 

Proposition 5.4.7 If an involutive division I is weak; continuous and Grobner, and if 
a given set of polynomials P is a Locally Involutive Basis with respect to I and some 
admissible monomial ordering O, then P is an Involutive Basis with respect to I and O. 

Proof: Let / be a weak; continuous and Grobner involutive division; let O be an 
admissible monomial ordering; and let P be a Locally Involutive Basis with respect to / 
and O. Given any polynomial p G P and any terms u and v, in order to show that P is 
an Involutive Basis with respect to / and O, we must show that upv — j^~ P 0- 

For the first part of the proof, we proceed as in the proof of Proposition 5.4.3 to find an 
involutive divisor p' G P of upv using the continuity of / at LM.(upv). This then allows 
us to involutive reduce upv using p' to obtain a polynomial q of the form 



where p aa G P and the u a and the v a are terms. 

For the second part of the proof, we now use the fact that P is a Grobner Basis to find 
a polynomial q' G P such that q' conventionally divides q (such a polynomial will always 
exist because q is clearly a member of the ideal generated by P). If q' is an involutive 
divisor of q, then we can use q' to involutively reduce q to obtain a polynomial r of the 
form shown in Equation (5.7). Otherwise, if q' is n °t an involutive divisor of q, we can 
use the fact that / is continuous at LM(g) to find such an involutive divisor, which we 
can then use to involutive reduce q to obtain a polynomial r, again of the form shown in 
Equation (5.7). In both cases, we now proceed by induction on r, noting that this process 
will terminate because of the admissibility of O (we have LM(r) < LM(g)). □ 



A 




(5.7) 



a=l 
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To summarise, here is the situation for weak and Grobner involutive divisions. 

(a) Any Locally Involutive Basis returned by Algorithm 12 is an Involutive Basis if the 
involutive division used is weak; continuous and Grobner (Proposition 5.4.7); 

(b) Algorithm 12 always terminates whenever Algorithm 5 terminates if (in addition) the 
involutive division used is conclusive; 

(c) Every Involutive Basis with respect to a weak and Grobner involutive division is a 
Grobner Basis. 

5.5 Noncommutative Involutive Divisions 

Before we consider some examples of useful noncommutative involutive divisions, let us 
remark that it is possible to categorise any noncommutative involutive division somewhere 
between the following two extreme global divisions. 

Definition 5.5.1 (The Empty Division) Given any monomial u, let u have no (left 
or right) multiplicative variables. 

Definition 5.5.2 (The Full Division) Given any monomial u, let u have no (left or 
right) nonmultiplicative variables (in other words, all variables are left and right multi- 
plicative for u). 

Remark 5.5.3 It is clear that any set of polynomials G will be an Involutive Basis 
with respect to the (weak) full division as any multiple of a polynomial g G G will be 
involutively reducible by g (all conventional divisors are involutive divisors); in contrast 
it is impossible to find a finite Locally Involutive Basis for G with respect to the (strong) 
empty division as there will always be a prolongation of an element of the current basis 
that is involutively irreducible. 

5.5.1 Two Global Divisions 

Whereas most of the theory seen so far in this chapter has closely mirrored the correspond- 
ing commutative theory from Chapter 4, the commutative involutive divisions (Thomas, 
Janet and Pommaret) seen in the previous chapter do not generalise to the noncommu- 
tative case, or at the very least do not yield noncommutative involutive divisions of any 
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value. Despite this, an essential property of these divisions is that they ensure that the 
least common multiple lcm(LM(pi), LM(p 2 )) associated with an S-polynomial S-pol(j>i, P2) 
is involutively irreducible by at least one of p\ and P2, ensuring that the S-polynomial 
S-pol(pi,p2) is constructed and involutively reduced during the course of the Involutive 
Basis algorithm. 

To ensure that the corresponding process occurs in the noncommutative Involutive Basis 
algorithm, we must ensure that all overlap words associated to the S-polynomials of a 
particular basis are involutively irreducible (as placed in the overlap word) by at least 
one of the polynomials associated to each overlap word. This obviously holds true for the 
empty division, but it will also hold true for the following two global involutive divisions, 
where all variables are either assigned to be left multiplicative and right nonmultiplicative, 
or left nonmultiplicative and right multiplicative. 

Definition 5.5.4 (The Left Division) Given any monomial u, the left division < as- 
signs no left nonmultiplicative variables to u, and assigns no right multiplicative variables 
to u (in other words, all variables are left multiplicative and right nonmultiplicative for 
u). 

Definition 5.5.5 (The Right Division) Given any monomial u, the right division > 
assigns no left multiplicative variables to u, and assigns no right nonmultiplicative vari- 
ables to u (in other words, all variables are left nonmultiplicative and right multiplicative 
for u). 

Proposition 5.5.6 The left and right divisions are strong involutive divisions. 

Proof: We will only give the proof for the left division - the proof for the right division 
will follow by symmetry (replacing 'left' by 'right', and so on). 

To prove that the left division is a strong involutive division, we need to show that the 
three conditions of Definition 5.1.6 hold. 

• Disjoint Cones Condition 

Consider two involutive cones C < (ui) and C<(tt2) associated to two monomials u±,U2 
over some noncommutative polynomial ring TZ. If C<(«i) H C<(«2) 7^ 0j then there 
must be some monomial v G TZ such that v contains both monomials u\ and U2 as 
subwords, and (as placed in v) both u\ and U2 must be involutive divisors of v. By 
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definition of <1, both u\ and u 2 must be suffices of v. Thus, assuming (without loss 
of generality) that deg^) > deg(u2), we are able to draw the following diagram 
summarising the situation. 

v 

Ui 

"2 



But now, assuming that u\ = u^u 2 for some monomial U3, it is clear that C<|(ui) C 
C<](m2) because any monomial w G C<(tti) must be of the form w = w'u\ for some 
monomial w'\ this means that w = w'u 3 u 2 G C <s (u 2 ). 

• Unique Divisor Condition 

As a monomial v is only involutively divisible by a monomial u with respect to the 
left division if u is a suffix of v, it is clear that u can only involutively divide v in at 
most one way. 

• Subset Condition 

Follows immediately due to the left division being a global division. 

□ 

Proposition 5.5.7 The left and right divisions are continuous. 

Proof: Again we will only treat the case of the left division. Let w be an arbitrary fixed 
monomial; let U be any set of monomials; and consider any sequence (ui, u 2 , . . . , Uk) 
of monomials from U (itj G U for all 1 ^ i ^ k), each of which is a conventional divisor 
of w (so that w = iiUiTi for all 1 ^ i ^ k, where the li and the are monomials). For 
all 1 ^ i < k, suppose that the monomial itj+i satisfies condition (b) of Definition 5.4.2 
(condition (a) can never be satisfied because < never assigns any left nonmultiplicative 
variables). To show that < is continuous, we must show that no two pairs (£i,ri) and 
are the same, where i ^ j. 

Consider an arbitrary monomial U{ from the sequence, where 1 ^ i < k. Because < 
assigns no right multiplicative variables, the next monomial in the sequence must 
be a suffix of the prolongation Uj(Prefix(r,;, 1)) of Wj, so that deg(r i+1 ) = deg(rj) — 1. 
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It is therefore clear that no two identical (£, r) pairs can be found in the sequence, as 
deg(ri) > deg(r 2 ) > • • ■ > deg(r fc ). □ 

To illustrate the difference between the overlapping cones of a noncommutative Grobner 
Basis and the disjoint cones of a noncommutative Involutive Basis with respect to the left 
division, consider the following example. 

Example 5.5.8 Let F := {2xy + y 2 + 5, x 2 + y 2 + 8} be a basis over the polynomial ring 
Q{x, y), and let the monomial ordering be DegLex. Applying Algorithm 5 to F, we obtain 
the Grobner Basis G := {2xy + y 2 + 5, x 2 + y 2 + 8, 5y 3 — 10x + 37y, 2yx + y 2 + 5}. Applying 
Algorithm 12 to F with respect to the left involutive division, we obtain the Involutive 
Basis H := {2xy + y 2 + 5, x 2 + y 2 + 8, 5y 3 — lOx + 37y, 5xy 2 + 5x — Qy, 2yx + y 2 + 5}. 

To illustrate which monomials are reducible with respect to the Grobner Basis, we can 
draw a monomial lattice, part of which is shown below. In the lattice, we draw a path 
from the (circled) lead monomial of any Grobner Basis element to any multiple of that 
lead monomial, so that any monomial which lies on some path in the lattice is reducible 
by one or more Grobner Basis elements. To distinguish between different Grobner Basis 
elements we use different arrow types; we also arrange the lattice so that monomials of 
the same degree lie on the same level. 

1 



x y 




x A x 3 y x 2 yx xyx 2 yx 3 x 2 y 2 xy 2 x xyxy yxyx yx 2 y y 2 x 2 xy 3 yxy 2 y 2 xy y 3 x y 4 
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Notice that many of the monomials in the lattice are reducible by several of the Grobner 
Basis elements. For example, the monomial x 2 yx is reducible by the Grobner Basis 
elements 2xy + y 2 + 5; x 2 + y 2 + 8 and 2yx + y 2 + 5. In contrast, any monomial in the 
corresponding lattice for the Involutive Basis may only be involutively reducible by at 
most one element in the Involutive Basis. We illustrate this by the following diagram, 
where we note that in the involutive lattice, a monomial only lies on a particular path if 
a member of the Involutive Basis is an involutive divisor of that monomial. 

1 



x y 




x 4 x 3 y x 2 yx xyx 2 yx 3 x 2 y 2 xy 2 x xyxy yxyx yx 2 y y 2 x 2 xy 3 yxy 2 y 2 xy y 3 x y A 

Comparing the two monomial lattices, we see that any monomial that is conventionally 
divisible by the Grobner Basis is uniquely involutively divisible by the Involutive Basis. 
In other words, the involutive cones of the Involutive Basis form a disjoint cover of the 
conventional cones of the Grobner Basis. 

Fast Reduction 

In the commutative case, we can sometimes use the properties of an involutive division 
to speed up the process of involutively reducing a polynomial with respect to a set of 
polynomials. For example, the Janet tree [27, 28] enables us to quickly determine whether 
a polynomial is involutively reducible by a set of polynomials with respect to the Janet 
involutive division. 
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In the noncommutative case, we usually use Algorithm 10 to involutively reduce a poly- 
nomial p with respect to a set of polynomials P. When this is done with respect to the 
left or right divisions however, we can improve Algorithm 10 by taking advantage of the 
fact that a monomial u\ only involutively divides another monomial 112 with respect to 
the left (right) division if u\ is a suffix (prefix) of 1*2- 

For the left division, we can replace the code found in the first if loop of Algorithm 10 with 
the following code in order to obtain an improved algorithm. 

if (LM(pj) is a suffix of u) then 
found = true; 

p = p — (c\jC(pj)~ l )uiPj, where v>i = PrefixQo, deg(p) — deg(pj)); 
else 

3 = j + i; 

end if 

We note that only one operation is required to determine whether the monomial LM(pj) 
involutively divides the monomial u here (test to see if LM(pj) is a suffix of u); whereas in 
general there are many ways that LM(p J ) can conventionally divide u, each of which has 
to be tested to see whether it is an involutive reduction. This means that, with respect 
to the left or right divisions, we can determine whether a monomial u is involutively 
irreducible with respect to a set of polynomials P in linear time (linear in the number of 
elements in P); whereas in general we can only do this in quadratic time. 

5.5.2 An Overlap-Based Local Division 

Even though the left and right involutive divisions are strong and continuous (so that any 
Locally Involutive Basis returned by Algorithm 12 is a noncommutative Grobner Basis), 
these divisions are not conclusive as the following example demonstrates. 

Example 5.5.9 Let F := {xy — z, x + z, yz — z, xz, zy + z, z 2 } be a basis over the 
polynomial ring Q(x, y, z), and let the monomial ordering be DegLex. Applying Algorithm 
5 to F, we discover that F is a noncommutative Grobner Basis (F is returned to us as 
the output of Algorithm 5). When we apply Algorithm 12 to F with respect to the 
left involutive division however, we notice that the algorithm goes into an infinite loop, 
constructing the infinite basis G := FU {zy n — z, xy n +z, zy m + z, xy m — z}, where n ^ 2, 
n even and m ^ 3, m odd. 
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The reason why Algorithm 12 goes into an infinite loop in the above example is that the 
right prolongations of the polynomials xy — z and zy + z by the variable y do not involu- 
tively reduce to zero (they reduce to the polynomials xy 2 + z and zy 2 — z respectively). 
These prolongations are the only prolongations of elements of F that do not involutively 
reduce to zero, and this is also true for all polynomials we subsequently add to F, thus 
allowing Algorithm 12 to construct the infinite set G. 

Consider a modification of the left division where we assign the variable y to be right 
multiplicative for the (lead) monomials xy and zy. Then it is clear that F will be a 
Locally Involutive Basis with respect to this modified division, but will it also be true 
that F is an Involutive Basis and (had we not known so already) a Grobner Basis? 

Intuitively, for this particular example, it would seem that the answer to both of the 
above questions should be affirmative, because the modified division still ensures that 
all the overlap words associated with the S-polynomials of F are involutively irreducible 
(as placed in the overlap word) by at least one of the polynomials associated to each 
S-polynomial. This leads to the following idea for a local involutive division, where we 
refine the left division by choosing right nonmultiplicative variables based on the overlap 
words of S-polynomials associated to a set of polynomials only (note that there will also 
be a similar local involutive division refining the right division called the right overlap 
division). 

Definition 5.5.10 (The Left Overlap Division O) Let U = {ui, . . . ,u m } be a set of 

monomials, and assume that all variables are left and right multiplicative for all elements 
of U to begin with. 

(a) For all possible ways that a monomial Uj G U is a subword of a (different) monomial 
Ui G U, so that 

Subword(uj, k,k + deg(uj) — 1) = Uj 

for some integer k, if Uj is not a suffix of Wj, assign the variable Subword («j, k + 
deg(uj), k + deg(?/j)) to be right nonmultiplicative for Uj. 

(b) For all possible ways that a proper prefix of a monomial G U is equal to a proper 
suffix of a (not necessarily different) monomial Uj G U, so that 

Prefix(uj, k) = Suffix^, k) 
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for some integer k and U{ is not a subword of Uj or vice-versa, assign the variable 
Subword(wj, k + 1, k + 1) to be right nonmultiplicative for Uj. 

Remark 5.5.11 One possible algorithm for the left overlap division is presented in Al- 
gorithm 13, where the reason for insisting that the input set of monomials is ordered with 
respect to DegRevLex is in order to minimise the number of operations needed to discover 
all the subword overlaps (a monomial of degree d\ can never be a subword of a different 
monomial of degree d 2 ^ di). 

Example 5.5.12 Consider again the set of polynomials F := {xy — z, x + z, yz — 
z, xz, zy + z, z 2 } from Example 5.5.9. Here are the left and right multiplicative vari- 
ables for LM(F) with respect to the left overlap division O. 



u 


M L {u, LM(F)) 


Mq(u, LM(F)) 


xy 


{x, y, z} 


{x,y} 


X 


{x,y,z} 


{x} 


yz 


{x,y,z} 


{x} 


xz 


{x,y,z} 


{x} 


zy 


{x,y,z} 


{x,y} 


z 2 


{x,y,z} 


{x} 



When we apply Algorithm 12 to F with respect to the DegLex monomial ordering and the 
left overlap division, F is returned to us as the output, an assertion that is easily verified 
by showing that the 10 right prolongations of elements of F all involutively reduce to zero 
using F. This means that F is a Locally Involutive Basis with respect to the left overlap 
division; to show that F (and indeed any Locally Involutive Basis returned by Algorithm 

12 with respect to the left overlap division) is also an Involutive Basis with respect to 
the left overlap division, we need to show that the left overlap division is continuous and 
either strong or Grobner; we begin (after the following remark) by showing that the left 
overlap division is continuous. 

Remark 5.5.13 In the above example, the table of multiplicative variables can be con- 
structed from the table T shown below, a table that is obtained by applying Algorithm 

13 to LM(F). 
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Algorithm 13 The Left Overlap Division O 



Input: A set of monomials U = {u\, . . . ,u m } ordered by DegRevLex [u\ ^ u 2 ^ • ■ • ^ 

u m ), where u { G R(xi, ...,x n ). 
Output: A table T of left and right multiplicative variables for all ui G U, where each 

entry of T is either 1 (multiplicative) or (nonmultiplicative). 

Create a table T of multiplicative variables as shown below: 





x\ 


xf 




•"2 




X n 


Ml 


1 


1 


1 


1 •■ 


• 1 


1 


u 2 


1 


1 


1 


1 •■ 


• 1 


1 




1 


1 


1 


1 •■ 


■ 1 


1 



1) do 



for each monomial Uj G U (1 ^ i ^ m) do 
for each monomial Uj G U (i ^ j ^ m) do 

Let and Uj 

if (i 7^ j) then 

for each k (1 ^ k < a — (3 

if (Subword(wj, k,k + (3 - 

n«j><C) = 0; 

end if 
end for 
end if 

for each k (1 < Jfc < - 1) do 

if (Prefix(wj, fc) == Suffix(Wj, fc)) then 

T(u„^ +i )=0; 
end if 

if (Suffix(tij, k) == Prefix(Mj, k)) then 

T(u u xf k+i )=0; 
end if 
end for 

end for 
end for 
return T; 



Uj) then 
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Monomial 


X L 


X R 


yL 


y R 


z L 


Z R 


xy 


1 


1 


1 


1 


1 





X 


1 


1 


1 





1 





yz 


1 


1 


1 





1 





xz 


1 


1 


1 





1 





zy 


1 


1 


1 


1 


1 





z 2 


1 


1 


1 





1 






The zero entries in T correspond to the following overlaps between the elements of LM(F). 



Table Entry 


Overlap 


T(xy, z R ) 


SuQix(xy, 1] 


= Prefix(yz, 1) 


T(x,y R ) 


Subword 


[xy, 1, 1) = x 


T(x, z R ) 


Sub word 




T(yz,y R ) 


Suffix(?/z, 1) 


= Prefix (zy, 1) 


T(yz,z R ) 


Sumx(?/2, r 


= Prefix(2 2 , 1) 


T(xz, y R ) 


Suffix(a;z, 1) 


= Prefix(zy, 1) 


T(xz, z R ) 


Suffix(a;2:, 1" 


= PrefixO 2 , 1) 


T(zy,z R ) 


Suffi.x(zy, 1) 


= Prefix (yz, 1) 


T(z\y R ) 


Suffix^ 2 , 1) 


= Piefix(zy, 1) 


T(z 2 lZ R ) 


Suffix(;2 2 , 1) 


= Prefix^ 2 , 1) 



Proposition 5.5.14 The left overlap division O is continuous. 

Proof: Let w be an arbitrary fixed monomial; let U be any set of monomials; and 
consider any sequence (u±, u 2 , . . . , Uf.) of monomials from U (uj G f/ for all 1 ^ i ^ A;), 
each of which is a conventional divisor of w (so that w = liUiTi for all 1 ^ i ^ k, where 
the ii and the r, are monomials). For all 1 ^ % < k, suppose that the monomial Ui + \ 
satisfies condition (b) of Definition 5.4.2 (condition (a) can never be satisfied because O 
never assigns any left nonmultiplicative variables). To show that O is continuous, we 
must show that no two pairs (£i,ri) and (£j,rj) are the same, where i ^ j. 

Consider an arbitrary monomial Ui from the sequence, where 1 ^ % < k. By definition of 
O, the next monomial iii+i in the sequence cannot be either a prefix or a proper subword 
of Ui. This leaves two possibilities: (i) u i+ i is a suffix of itj (in which case deg(w i+ i) < 
deg(uj)); or (ii) is a suffix of the prolongation u^i of «j, where Vi := Prefix(rj, 1). 
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Ui Vi Ui Vi 

Ui+1 Ui+1 

In both cases, it is clear that we have deg(rj + i) ^ deg(rj), so that deg(ri) ^ deg(r2) ^ 
■ ■ ■ ^ deg(rfc). It follows that no two (£, r) pairs in the sequence can be the same, because 
for each subsequence u a ,u a+ i, such that deg(r a ) = deg(r a+ i) = • • ■ = deg(rf,), we 

must have deg(£ a ) < deg(£ a+1 ) < ■■ < deg(4). □ 

Having shown that the left overlap division is continuous, one way of showing that every 
Locally Involutive Basis with respect to the left overlap division is an Involutive Basis 
would be to show that the left overlap division is a strong involutive division. However, 
the left overlap division is only a weak involutive division, as the following counterexample 
demonstrates. 

Proposition 5.5.15 The left overlap division is a weak involutive division. 

Proof: Let U := {yz,xy} be a set of monomials over the polynomial ring Q(x,y,z). 
Here are the multiplicative variables for U with respect to the left overlap division O. 



u 


M L {u,U) 


M§(u,U) 


yz 
xy 


{x,y,z} 
{x,y,z} 


{x,y,z} 

{x,y} 



Because yzxy G Co(yz,U) and yzxy G Co(xy,U), one of the conditions Co(yz,U) C 
Co{xy,U) or Co(xy,U) C Co(yz,U) must be satisfied in order for O to be a strong 
involutive division (this is the Disjoint Cones condition of Definition 5.1.6). But neither 
of these conditions can be satisfied when we consider that xy ^ Co{yz,U) and yz ^ 
Co(xy, U), so O must be a weak involutive division. □ 

The weakness of the left overlap division is the price we pay for refining the left division 
by allowing more right multiplicative variables. All is not lost however, as we can still 
show that every Locally Involutive Basis with respect to the left overlap division is an 
Involutive Basis by showing that the left overlap division is a Grobner involutive division. 

Proposition 5.5.16 The left overlap division O is a Grobner involutive division. 
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Proof: We are required to show that if Algorithm 12 terminates with O and some 
arbitrary admissible monomial ordering O as input, then the Locally Involutive Basis 
G it returns is a noncommutative Grobner Basis. By Definition 3.1.8, we can do this 
by showing that all S-polynomials involving elements of G conventionally reduce to zero 
using G. 

Assume that G = {gi, . . . , g p } is sorted (by lead monomial) with respect to the DegRevLex 
monomial ordering (greatest first), and let U = {u\, . . . , u p } := {LM(gx), . . . , LM(g p )} be 
the set of leading monomials. Let T be the table obtained by applying Algorithm 13 to 
U. Because G is a Locally Involutive Basis, every zero entry T(-Uj,xJ) (r £ {L,R}) in 
the table corresponds to a prolongation g^Xj or x^gi that involutively reduces to zero. 

Let S be the set of S-polynomials involving elements of G, where the t-th entry of S 
(1 ^ t ^ \S\) is the S-polynomial 

s t = (hitgin - c' t £' t gjr' t , 

with £tUir t = l' t Ujr' t being the overlap word of the S-polynomial. We will prove that every 
S-polynomial in S conventionally reduces to zero using G. 

Recall (from Definition 3.1.2) that each S-polynomial in S corresponds to a particular type 
of overlap — 'prefix', 'subword' or 'suffix'. For the purposes of this proof, let us now split 
the subword overlaps into three further types — 'left', 'middle' and 'right', corresponding 
to the cases where a monomial rri2 is a prefix, proper subword and suffix of a monomial 
rrii. 

Left Middle Right 

nil mi mi 

m 2 m 2 m 2 

This classification provides us with five cases to deal with in total, which we shall process 
in the following order: right, middle, left, prefix, suffix. 

(1) Consider an arbitrary entry Sf£S f (l^t^|S'|) corresponding to a right overlap 
where the monomial Uj is a suffix of the monomial itj. Because O never assigns any left 
nonmultiplicative variables, Uj must be an involutive divisor of itj. But this contradicts 
the fact that the set G is autoreduced; it follows that no S-polynomials corresponding to 
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right overlaps can appear in S. 

(2) Consider an arbitrary entry St 6 S (1 ^ t ^ j jS' j ) corresponding to a middle overlap 
where the monomial Uj is a proper subword of the monomial «j. This means that s t = 
c t9i ~ c 't^t9j r t f° r some 9h 9j £ G, with overlap word u,i = i' t Ujv' t . Let Ui = x^ . . . Xi a ; let 
Uj = Xj 1 . . . Xjg ; and choose D such that Xi D = Xj p . 



i D-p • Li D-t3 + \ J ' i D-l3+2 ^D-l % D ^D+l 



32 J/3-1 3/3 



Because u 3 - is a proper subword of Ui, it follows that T(uj, xf ) = 0. This gives rise to 
the prolongation gjXi D+1 of gj. But we know that all prolongations involutively reduce 
to zero {G is a Locally Involutive Basis), so Algorithm 10 must find a monomial Uk = 
%ki ■ ■ ■ x k~/ £ U such that Uk involutively divides UjXi D+1 . Assuming that x^ = Xi K , we can 
deduce that any candidate for u^ must be a suffix of UjXi D+1 (otherwise T(uk,xf K+i ) = 
because of the overlap between it, and This means that the degree of Uk is in the 
range 1^7^/3 + 1; we shall illustrate this in the following diagram by using a squiggly 
line to indicate that the monomial Uk can begin anywhere (or nowhere if Uk = %i D+1 ) on 
the squiggly line. 



! _D-/3+l Xi D-/3+2 



U 3 



^31 ^32 30— l ^3/3 

Uk = 



We can now use the monomial Uk together with Buchberger's Second Criterion to simplify 
our goal of showing that the S-polynomial St reduces to zero. Notice that the monomial 
Uk is a subword of the overlap word Ui associated to St, and so in order to show that St 
reduces to zero, all we have to do is to show that the two S-polynomials 

Su &u9i ^{x^X^ ■ • ■ -Ein+i — f )9k(%i£>+2 • • • ^ia) 

and 2 

&v ^vip^ji ■ ■ ■ "^in+i i)9k C v 9jXi D+1 



2 Technical point: if 7 ^ j3 + 1, the S-polynomial s v could in fact appear as s v = c v gjXi D+1 — 
c' v (x jl . . ■x lD+1 _, i )g k and not as s v = c v (x n . . .x ir>+1 _^)gk - c' v gjX lD+1 ; for simplicity we will treat both 
cases the same in the proof as all that changes is the notation and the signs. 
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reduce to zero (1 ^ u, v ^ \S\). 

For the S-polynomial s v , there are two cases to consider: 7 = 1, and 7 > 1. In the 
former case, because (as placed in ui) the monomials Uj and do not overlap, we can 
use Buchberger's First Criterion to say that the 'S-polynomial' s v reduces to zero (for 
further explanation, see the paragraph at the beginning of Section 3.4.1). In the latter 
case, we know that the first step of the involutive reduction of the prolongation gjXi D+1 is 
to take away the multiple {^-){xj 1 . . . Xi D+x _^)gk of g% from gjXi D+1 to leave the polynomial 
gjXi D+1 — (fO( x .n • • -XiD+i-^dk — —(-^-) s v But as we know that all prolongations invo- 
lutively reduce to zero, we can conclude that the S-polynomial s v conventionally reduces 
to zero. 

For the S-polynomial s u , we note that if D = a — 1, then s u corresponds to a right overlap. 
But we know from part (1) that right overlaps cannot appear in S, and so s t also cannot 
appear in S. Otherwise, we proceed by induction on the S-polynomial s u to produce a 
sequence {u qD+1 , u qD+2 , . . . ,u qa } of monomials, so that s u (and hence s t ) reduces to zero 
if the S-polynomial 

s-q = c^gi — (^(xjj . . . Xi a _^)g qa 
reduces to zero (1 ^ r\ ^ IS*!), where /i = deg(u qa ). 

Xi l Xi D-l3 Xi D~fj+l X *D Xi D + l Xi D+2 Xi a-1 Xi a 

Uj = 

x h x if3 

U QD+i — u k — — 



But always corresponds to a right overlap, so we must conclude that middle overlaps 
(as well as right overlaps) cannot appear in S. 

(3) Consider an arbitrary entry s t 6 S (1 ^ t ^ \S\) corresponding to a left overlap where 
the monomial Uj is a prefix of the monomial Ui. This means that St = Ctgi — c' t gjr' t for 
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some gi, gj G G, with overlap word Ui = Ujr' t . Let Ui = x^ . . . Xi a and let Uj = x^ . . . Xj„. 
u i = -z ~ 



"31 



Because Uj is a prefix of itj, it follows that T(uj, x^ +i ) = 0. This gives rise to the 
prolongation gjXi p+1 of gj. But we know that all prolongations involutively reduce to 
zero, so there must exist a monomial Uk = Xk x ■ ■ ■ x^ G U such that Uk involutively 
divides UjX i/3+1 . Assuming that x^ = x iK , any candidate for Uk must be a suffix of UjX i/3+1 
(otherwise T(uk,x^ K+i ) = because of the overlap between and u^). Further, any 
candidate for Uk cannot be either a suffix or a proper subword of itj (because of parts (1) 
and (2) of this proof). This leaves only one possibility for u^, namely Uk = UjXi 0+1 . 

u, = 



Uk 





2>i 2 


X i0-1 


Xi P 


Xi l3 + 1 


Xi ct-1 




X 31 


x 32 


X 3/3-1 


X 3f3 










x *2 


x k 1 _ 2 


Kry— 1 


x k~f 







If a — (3 + 1, then it is clear that Uk = Ui, and so the first step in the involutive reduction 
of the prolongation gjXi a is to take away the multiple (^t)gi of g^ from gjX ia to leave the 
polynomial gjX% a — (^j)gi = —(jr)st- But as we know that all prolongations involutively 
reduce to zero, we can conclude that the S-polynomial St conventionally reduces to zero. 

Otherwise, if a > f3 + 1, we can now use the monomial Uk together with Buchberger's 
Second Criterion to simplify our goal of showing that the S-polynomial s t reduces to zero. 
Notice that the monomial Uk is a subword of the overlap word associated to s t , and 
so in order to show that St reduces to zero, all we have to do is to show that the two 
S-polynomials 

Su Cu9i C u gk(Xip +2 . . . 3?j a ) 

and 

reduce to zero (1 ^ u, v ^ \S\). 

The S-polynomial s v reduces to zero by comparison with part (2). For the S-polynomial 
s u , we proceed by induction (we have another left overlap), eventually coming across a 
left overlap of 'type a — (3 + 1' because we move one letter at a time to the right after 



CHAPTER 5. NONCOMMUTATIVE INVOLUTIVE BASES 
each inductive step. 



134 



Ui = 
Uj = 
Uk = 



X I ^ 


Xj 2 


Xi f3-1 


Xi f3 




Xi f3+2 Xi a-1 




x i\ 


J: J2 


X 3 /3-1 


x ip 








Xk 1 


Xk 2 


Xh ~i-1 


%k 
^7 — 1 


Xky 







(4 and 5) In Definition 3.1.2, we denned a prefix overlap to be an overlap where, given 
two monomials mi and m>2 such that deg(mi) ^ deg(m2), a prefix of mi is equal to a 
suffix of m-2 ; suffix overlaps were defined similarly. If we drop the condition on the degrees 
of the monomials, it is clear that every suffix overlap can be treated as a prefix overlap 
(by swapping the roles of mi and 7712); this allows us to deal with the case of a prefix 
overlap only. 

Consider an arbitrary entry SfG5(l^t^|5|) corresponding to a prefix overlap where 
a prefix of the monomial is equal to a suffix of the monomial Uj. This means that 
s t = c t £ t gi — c' t gjr' t for some gi, gj G G, with overlap word l t Ui = Ujr[. Let — . . . Xi a ; 
let Uj = Xj x . . . xj„ ; and choose D such that x io = Xj . 



*D+1 



L 3f3-D X 3f3-D+1 



By definition of O, we must have T(uj, xf D 1 ) = 0. 

Because we know that the prolongation gjXi D+1 involutively reduces to zero, there must 
exist a monomial Uk = Xk x ■ ■ ■ x^ G U such that Uk involutively divides UjXi D+1 . This Uk 
must be a suffix of UjX io+1 (otherwise, assuming that x^ = Xj K , we have T(w fc , xf D+i ) = 
if k — (3 (because of the overlap between u^ and Uk); and T(w fc ,x^ +1 ) = if k < (3 
(because of the overlap between Uj and Uk))- 



U; 



U i 



J. j j 
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Let us now use the monomial Uk together with Buchberger's Second Criterion to simplify 
our goal of showing that the S-polynomial s t reduces to zero. Because it*, is a subword 
of the overlap word £ t Ui associated to s t , in order to show that s t reduces to zero, all we 
have to do is to show that the two S-polynomials 

c' u g k {x iD+2 . ■ -x ia ) if 7 > L> + 1 
■ ■x ia ) if 7^ D + l 

and 

&v c- v gj%i D+l c v {xj 1 . . . Xjp +1 _^)()k 
reduce to zero (1 ^ u, v ^ \S\). 

The S-polynomial s v reduces to zero by comparison with part (2). For the S-polynomial 
s u , first note that if a — D + 1, then either Uk is a suffix of u^, ui is a suffix of Uk, or 
Uk = Uf, it follows that s u reduces to zero trivially if u^ = Ui, and (by part (1)) s u (and 
hence s t ) cannot appear in S in the other two cases. 

If however + then either s u is a middle overlap (if 7 < D + l), a left overlap 

(if 7 = D + l), or another prefix overlap. The first case leads us to conclude that s t 
cannot appear in S; the second case is handled by part (3) of this proof; and the final case 
is handled by induction, where we note that after each step of the induction, the value 
a + (3 — 2D strictly decreases, so we are guaranteed at some stage to find an overlap that 
is not a prefix overlap, enabling us either to verify that the S-polynomial s t conventionally 
reduces to zero, or to conclude that s t can not in fact appear in S. □ 

5.5.3 A Strong Local Division 

Thus far, we have encountered two global divisions that are strong and continuous, and one 
local division that is weak, continuous and Grobner. Our next division can be considered 
to be a hybrid of these previous divisions, as it will be a local division that is continuous 
and (as long as thick divisors are being used) strong. 

Definition 5.5.17 (The Strong Left Overlap Division S) Let U = {u\, . . . ,u m } be 
a set of monomials. Assign multiplicative variables to U according to Algorithm 15, which 
(in words) performs the following two tasks. 

(a) Assign multiplicative variables to U according to the left overlap division. 



c u9i ~ C u^u9k(Xi D+2 
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(b) Using the recipe provided in Algorithm 14, ensure that at least one variable in every 
monomial Uj G U is right nonmultiplicative for each monomial it, G U. 

Remark 5.5.18 As Algorithm 15 expects any input set to be ordered with respect to 
DegRevLex, we may sometimes have to reorder a set of monomials U to satisfy this 
condition before we can assign multiplicative variables to U according to the strong left 
overlap division. 

Algorithm 14 'DisjointCones' Function for Algorithm 15 

Input: A set of monomials U = {ux, . . . ,u m } ordered by DegRevLex (u\ ^ u 2 ^ • • • ^ 
u m ), where Ui G R(x±, . . . , x n ); a table T of left and right multiplicative variables for 
all Ui G U, where each entry of T is either 1 (multiplicative) or (nonmultiplicative). 

Output: T. 

for each monomial Ui E U (m ^ % ^ 1) do 
for each monomial Uj EU (m ^ j ^ 1) do 

Let and Uj — Xj 1 Xj 2 . . . x J/3 ; 

found = false; 
k = 1; 

while (k < P) do 

if (T{u u xf k ) = 0) then 
found = true; 
k = (3 + l; 
else 

k = k + 1; 
end if 
end while 

if (found == false) then 

T{u u xf i )=Q- 
end if 
end for 
end for 

return T; 
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Algorithm 15 The Strong Left Overlap Division S 

Input: A set of monomials U = {u x , . . . ,u m } ordered by DegRevLex {u\ ^ u 2 ^ ■ ■ ■ ^ 

u m ), where u { G R(x x , ...,x n ). 
Output: A table T of left and right multiplicative variables for all Ui G U, where each 

entry of T is either 1 (multiplicative) or (nonmultiplicative). 

Create a table T of multiplicative variables as shown below: 





x\ 


X± 


rf L 


X 2 




X n 




1 


1 


1 


1 ■ ■ 


■ 1 


1 




1 


1 


1 


1 •■ 


■ 1 


1 




1 


1 


1 


1 •■ 


■ 1 


1 



for each monomial Ui G U (1 ^ % ^ m) do 
for each monomial Uj G U (i ^ j ^ m) do 

if (i 7^ j) then 

for each k (1 ^ A; < a - (3 + 1) do 

if (Subword(uj, fc, fc + /3 — 1) == u.,-) then 

end if 
end for 
end if 

for each k (1 ^ k ^ (3 — 1) do 

if (Prefix(tij, /c) == Suffix(uj, A;)) then 

r(« iJ zJ +1 ) = o ; 

end if 

if (Sumx(wj, A;) == Prefix(Mj, A;)) then 

end if 
end for 

end for 
end for 

T = Disj oint Cones ( U, T); (Algorithm 14) 
return T; 
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Proposition 5.5.19 The strong left overlap division is continuous. 

Proof: We refer to the proof of Proposition 5.5.14, replacing O by S. □ 
Proposition 5.5.20 The strong left overlap division is a Grobner involutive division. 

Proof: We refer to the proof of Proposition 5.5.16, replacing O by S. □ 

Remark 5.5.21 Propositions 5.5.19 and 5.5.20 apply either when using thin divisors or 
when using thick divisors. 

Proposition 5.5.22 With respect to thick divisors, the strong left overlap division is a 
strong involutive division. 

Proof: To prove that the strong left overlap division is a strong involutive division, we 
need to show that the three conditions of Definition 5.1.6 hold. 

• Disjoint Cones Condition 

Let Cs(ui, U) and Cs(u 2 , U) be the involutive cones associated to the monomials U\ 
and U2 over some noncommutative polynomial ring TZ, where {u\, 112} C U C 1Z. If 
Cs(u±, U) fl Cs(u2, U) 7^ 0, then there must be some monomial v G 1Z such that v 
contains both monomials u\ and U2 as subwords, and (as placed in v) both u\ and 
U2 must be involutive divisors of v. By definition of S, both u± and U2 must be 
suffices of v. Thus, assuming (without loss of generality) that deg(ui) > deg(u 2 ), 
we are able to draw the following diagram summarising the situation. 

v 

Ml 

U 2 



For S to be strong, we must have Cs(wi, U) C Cs(u2, U) (it is clear that Cs(w2, U) <f. 
Cs(ui, U) because U2 ^ £5(1*1, U)). This can be verified by proving that a variable 
is right nonmultiplicative for u\ if and only if it is right nonmultiplicative for 

If an arbitrary variable x is right nonmultiplicative for U2, then either some 
monomial u G U overlaps with u 2 in one of the ways shown below (where the 
variable immediately to the right of U2 is the variable 1), or x was assigned right 
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nonmultiplicative for u 2 in order to ensure that some variable in some monomial 
u G U is right nonmultiplicative for u 2 . 

Overlap (i) Overlap (ii) 

u u 
u 2 u 2 

If the former case applies, then it is clear that for both overlap types there will be 
another overlap between U\ and u that will lead S to assign x to be right nonmulti- 
plicative for U\. It follows that after we have assigned multiplicative variables to U 
according to the left overlap division (which we recall is the first step of assigning 
multiplicative variables to U according to S), the right multiplicative variables of 
u\ and u 2 will be identical. It therefore remains to show that if x is assigned right 
nonmultiplicative for u 2 in the latter case (which will happen during the final step 
of assigning multiplicative variables to U according to S), then x is also assigned 
right nonmultiplicative for u\. But this is clear when we consider that Algorithm 
14 is used to perform this final step, because for u\ and u 2 in Algorithm 14, we will 
always analyse each monomial in U in the same order. 

(<=) Use the same argument as above, replacing u\ by u 2 and vice-versa. 

• Unique Divisor Condition 

Given a monomial u belonging to a set of monomials U, u may not involutively 
divide an arbitrary monomial v in more than one way (and hence the Unique Divisor 
condition is satisfied) because (i) S ensures that no overlap word involving only u 
is involutively divisible in more than one way by it; and (ii) S ensures that at least 
one variable in u is right nonmultiplicative for u, so that if u appears twice in v 
as subwords that are disjoint from one another, then only the 'right-most' subword 
can potentially be an involutive divisor of v. 

• Subset Condition 

Let v be a monomial belonging to a set V of monomials, where V itself is a subset of 
a larger set U of monomials. Because S assigns no left nonmultiplicative variables, 
it is clear that M$(v, U) C M$(v, V). To prove that M§(v, U) C M§(v, V), note 
that if a variable x is right nonmultiplicative for v with respect to U and S (so 
that x ^ Ai§(v, U)), then (as in the proof for the Disjoint Cones Condition) either 
some monomial u G U overlaps with v in one of the ways shown below (where the 
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variable immediately to the right of v is the variable x), or x was assigned right 
nonmultiplicative for v in order to ensure that some variable in some monomial 
u 6 U is right nonmultiplicative for v. 

Overlap (i) Overlap (ii) 

u u 

V V 

In both cases, it is clear that, with respect to the set V, the variable x may not be 
assigned right nonmultiplicative for v if u ^ V, so that A4§(v, U) C J\A§ (v, V) as 
required. 

□ 

Proposition 5.5.23 With respect to thin divisors, the strong left overlap division is a 
weak involutive division. 

Proof: Let U := {xy} be a set of monomials over the polynomial ring Q(x, y). Here are 
the multiplicative variables for U with respect to the strong left overlap division S. 



u 


M L s {u,U) 


M§(u,U) 


xy 


{x,y} 


{y} 



For S to be strong with respect to thin divisors, the monomial xy 2 xy, which is conven- 
tionally divisible by xy in two ways, must only be involutively divisible by xy in one way 
(this is the Unique Divisor condition of Definition 5.1.6). However it is clear that xy 2 xy 
is involutively divisible by xy in two ways with respect to thin divisors, so S must be a 
weak involutive division with respect to thin divisors. □ 

Example 5.5.24 Continuing Examples 5.5.9 and 5.5.12, here are the multiplicative vari- 
ables for the set LM(F) of monomials with respect to the strong left overlap division S, 
where we recall that F := {xy — z, x + z, yz — z, xz, zy + z, z 2 }. 
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u 


M%(u,LM(F)) 


M§(u,LM(F)) 


xy 


{x,y,z} 


{y} 


X 


{x,y,z} 





yz 


{x,y,z} 





xz 


{x,y,z} 





zy 


{x,y,z} 


M 


z 2 


{x,y,z} 






When we apply Algorithm 12 to F with respect to the DegLex monomial ordering, thick 
divisors and the strong left overlap division, F (as in Example 5.5.12) is returned to us 
as the output Locally Involutive Basis. 

Remark 5.5.25 In the above example, even though we know that S is continuous, we 
cannot deduce that the Locally Involutive Basis F is an Involutive Basis because we are 
using thick divisors (Proposition 5.4.3 does not apply in the case of using thick divisors). 

What this means is that the involutive cones of F (and in general any Locally Involutive 
Basis with respect to S and thick divisors) will be disjoint (because S is strong), but will 
not necessarily completely cover the conventional cones of F, so that some monomials 
that are conventionally reducible by F may not be involutively reducible by F . It follows 
that when involutively reducing a polynomial with respect to F, the reduction path will 
be unique but the correct remainder may not always be obtained (in the sense that some 
of the terms in our 'remainder' may still be conventionally reducible by members of F). 
One remedy to this problem would be to involutively reduce a polynomial p with respect 
to F to obtain a remainder r, and then to conventionally reduce r with respect to F 
to obtain a remainder r' which we can be sure contains no term that is conventionally 
reducible by F. 

Let us now summarise (with respect to thin divisors) the properties of the involutive 
divisions we have encountered so far, where we note that any strong and continuous 
involutive division is by default a Grobner involutive division. 
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Division 


Continuous 


Strong 


Grobner 


Left 


Yes 


Yes 


Yes 


Right 


Yes 


Yes 


Yes 


Left Overlap 


Yes 


No 


Yes 


Right Overlap 


Yes 


No 


Yes 


Strong Left Overlap 


Yes 


No 


Yes 


Strong Right Overlap 


Yes 


No 


Yes 



There is a balance to be struck between choosing an involutive division with nice theo- 
retical properties and an involutive division which is of practical use, which is to say that 
it is more likely to terminate compared to other divisions. To this end, one suggestion 
would be to try to compute an Involutive Basis with respect to the left or right divisions 
to begin with (as they are easily defined and involutive reduction with respect to these 
divisions is very efficient); otherwise to try one of the 'overlap' divisions, choosing a strong 
overlap division if it is important to obtain disjoint involutive cones. 

It is also worth mentioning that for all the divisions we have encountered so far, if Algo- 
rithm 12 terminates then it does so with a noncommutative Grobner Basis, which means 
that Algorithm 12 can be thought of as an alternative algorithm for computing noncom- 
mutative Grobner Bases. Whether this method is more or less efficient than computing 
noncommutative Grobner Bases using Algorithm 5 is a matter for further discussion. 

5.5.4 Alternative Divisions 

Having encountered three different types of involutive division so far (each of which has 
two variants - left and right), let us now consider if there are any other involutive divisions 
with some useful properties, starting by thinking of global divisions. 

Alternative Global Divisions 

Open Question 2 Apart from the empty, left and right divisions, are there any other 
global involutive divisions of the following types: 

(a) strong and continuous; 

(b) weak, continuous and Grobner? 
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Remark 5.5.26 It seems unlikely that a global division will exist that affirmatively an- 
swers Open Question 2 and does not either assign all variables to be left nonmultiplicative 
or all right nonmultiplicative (thus refining the right or left divisions respectively). The 
reason for saying this is because the moment you have one variable being left multiplica- 
tive and another variable being right multiplicative for the same monomial globally, then 
you risk not being able to prove that your division is strong; similarly the moment you 
have one variable being left nonmultiplicative and another variable being right nonmulti- 
plicative for the same monomial globally, then you risk not being able to prove that your 
division is continuous. 

Alternative Local Divisions 

So far, all the local divisions we have considered have assigned all variables to be mul- 
tiplicative on one side, and have chosen certain variables to be nonmultiplicative on the 
other side. Let us now consider a local division that modifies the left overlap division by 
assigning some variables to be nonmultiplicative on both left and right hand sides. 

Definition 5.5.27 (The Two-Sided Left Overlap Division W) Consider a set U = 
{u\, . . . , u m } of monomials, where all variables are assumed to be left and right multiplica- 
tive for all elements of U to begin with. Assign multiplicative variables to U according to 
Algorithm 16, which (in words) performs the following tasks. 

(a) For all possible ways that a monomial Uj G U is a subword of a (different) monomial 
Ui G U, so that 

Subword(uj, k,k + deg(itj) — 1) = Uj 

for some integer k, assign the variable Subword(wj, k— 1, k—1) to be left nonmultiplica- 
tive for Uj if uj is a suffix of uf, and assign the variable Subword(uj, k + deg(wj), k + 
deg(itj)) to be right nonmultiplicative for Uj if Uj is not a suffix of Wj. 

(b) For all possible ways that a proper prefix of a monomial itj G U is equal to a proper 
suffix of a (not necessarily different) monomial Uj G U, so that 

Prefix(Mj, k) = Suffix(wj, k) 

for some integer k and Ui is not a subword of Uj or vice- versa, use the recipe provided in 
the second half of Algorithm 16 to ensure that at least one of the following conditions 
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are satisfied: (i) the variable Subword(wj, k + 1, k + 1) is right nonmultiplicative for 
Uj] (ii) the variable Subword(wj, deg(uj) — k, deg(uj) — k) is left nonmultiplicative for 
Mi- 
Remark 5.5.28 For task (b) above, Algorithm 16 gives preference to monomials which 
are greater in the DegRevLex monomial ordering (given the choice, it always assigns 
a nonmultiplicative variable to whichever monomial out of Ui and Uj is the smallest); 
it also attempts to minimise the number of variables made nonmultiplicative by only 
assigning a variable to be nonmultiplicative if both the variables Subword(wj, k + 1, k + 1) 
and Subword(wj, deg(wj) — k,deg(uj) — k) are respectively right multiplicative and left 
multiplicative. These refinements will become crucial when proving the continuity of the 
division. 

Example 5.5.29 Consider the set of monomials U := {zx 2 yxy, yzx, xy} over the poly- 
nomial ring Q(x,y,z). Here are the left and right multiplicative variables for U with 
respect to the two-sided left overlap division W. 



u 


M^(u,U) 


M${u,U) 


zx 2 yxy 


{x,y,z} 


{x,y,z} 


yzx 


{y,z} 


{y,z} 


xy 


{x} 


{y,z} 



The above table is constructed from the table T shown below, a table which is obtained 
by applying Algorithm 16 to U . 



Monomial 


x L 


i > 

X 


y L 


y R 


z L 


z R 


zx 2 yxy 


1 


1 


l 


1 


1 


1 


yzx 








l 


1 


1 


1 


xy 


1 








1 





1 



The zero entries in T correspond to the following overlaps between the elements of U 
(presented in the order in which Algorithm 16 encounters them). 
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Algorithm 16 The Two-Sided Left Overlap Division W 



Input: A set of monomials U = {ux, . . . ,u m } ordered by DegRevLex (u\ ^ u<i ^ • • • ^ 

u m ), where m G R(xi, ...,x n ). 
Output: A table T of left and right multiplicative variables for all ui G U, where each 

entry of T is either 1 (multiplicative) or (nonmultiplicative). 

Create a table T of multiplicative variables as shown below: 











R 

x 2 


•*"n 


X n 




1 


1 


1 


1 ■ 


■ 1 


1 




1 


1 


1 


1 •■ 


■ 1 


1 



for each monomial Uj G £7 (1 ^ i ^ m) do 
for each monomial Uj G U (i ^ j ^ m) do 
Let and — Xj 1 Xj 2 . . . Xj fj ] 

if (i 7^ j) then 

for each k (I ^ k ^ a — (3 + I) do 

if (Subword(wj, fc, k + /3 — 1) == Uj) then 
if (jfe < a - f3 + 1) then T(u h xf J = 0; 
else r(^,xf fc i ) = 0; 
end if 
end if 
end for 
end if 

for each fc (1 O < - 1) do 

if (Prefix(M i; k) == Suffix(Mj, k)) then 

if (T( Ui ,xf J + T( Uj ,xX +i ) == 2) then T( Uj ,x* +i ] 
end if 

end if 

if (Suffix(uj, k) == Prefix (uj, k)) then 

if (T( Ui ,xf k+i ) + T( Uj ,xf a _ k ) == 2) then T( Uj ,xf a _ k ) = 0; 
end if 



end if 
end for 
end for 
end for 
return T; 
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Table Entry 


Overlap 


T(yzx, x R ) 


Prefix(zx 2 yxy, 2) = SuShc(yzx, 2) 


T(yzx, x L ) 


SuSix(zx 2 yxy, 1) = Preftx(yzx, 1) 


T(xy, x R ) 


Subword(zx 2 yxy , 3, 4) = xy 


T(xy,y L ) 


Subword(zx 2 yxy , 5, 6) = xy 


T(xy, z L ) 


Suffix(yzx, 1) = Prefix(xy, 1) 



Notice that the overlap Prefix(yzx, 1) = Suffix(xy, 1) does not produce a zero entry for 
T(xy, z R ), as by the time that we encounter this overlap in the algorithm, we have already 
assigned T(yzx, x L ) = 0. 

Proposition 5.5.30 The two-sided left overlap division W is a weak involutive division. 

Proof: We refer to the proof of Proposition 5.5.15, making the obvious changes (for 
example replacing O by W). □ 

For the following two propositions, we defer their proofs to Appendix A due to their 
length and technical nature. 

Proposition 5.5.31 The two-sided left overlap division W is continuous. 

Proof: We refer to Appendix A. □ 

Proposition 5.5.32 The two-sided left overlap division W is a Grobner involutive divi- 
sion. 

Proof: We refer to Appendix A, noting that the proof is similar to the proof of Propo- 
sition 5.5.16. □ 

Remark 5.5.33 Because a variable is sometimes only assigned nonmultiplicative if two 
other variables are multiplicative in Algorithm 16, the subset condition of Definition 5.1.6 
will not always be satisfied with respect to the two-sided left overlap division. This will 
still hold true even if we apply Algorithm 14 at the end of Algorithm 16, which means 
that the two-sided left overlap division cannot be converted to give a strong involutive 
division in the same way that we converted the left overlap division to give the strong left 
overlap division. 
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To finish this section, let us now consider some further variations of the left overlap 
division, variations that will allow us to assign more multiplicative variables than the left 
overlap division (and hence potentially have to deal with fewer prolongations when using 
Algorithm 12), but variations that cannot be modified to give strong involutive divisions 
in the same way that the left overlap division was modified to give the strong left overlap 
division (this is because there are other ways beside a monomial being a suffix of another 
monomial that two involutive cones can be non-disjoint with respect to these modified 
divisions) . 

Definition 5.5.34 (The Prefix-Only Left Overlap Division) Let U = {u\, . . . , u m } 
be a set of monomials, and assume that all variables are left and right multiplicative for 
all elements of U to begin with. 

(a) For all possible ways that a monomial Uj G U is a proper prefix of a monomial Ui G U, 
assign the variable Subword(w;, deg(wj) + 1, deg(-Uj) + 1) to be right nonmultiplicative 
for uj. 

(b) For all possible ways that a proper prefix of a monomial it$ G U is equal to a proper 
suffix of a (not necessarily different) monomial Uj G U, so that 

Prefix(wj, k) = Suffix^-, k) 

for some integer k and Ui is not a subword of Uj or vice-versa, assign the variable 
Subword(iii, k + 1, k + 1) to be right nonmultiplicative for Uj. 

Definition 5.5.35 (The Subword-Free Left Overlap Division) Consider a set U = 
{u±, . . . ,u m } of monomials, where all variables are assumed to be left and right multi- 
plicative for all elements of U to begin with. 

For all possible ways that a proper prefix of a monomial itj G U is equal to a proper suffix 
of a (not necessarily different) monomial Uj G U, so that 

Prefix (ui, k) = Suffix (uj, k) 

for some integer k and w, is not a subword of Uj or vice-versa, assign the variable 
Subword(uj, k + 1, k + 1) to be right nonmultiplicative for uj. 

Proposition 5.5.36 Both the prefix-only left overlap and the subword-free left overlap 
divisions are continuous, weak and Grobner. 
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Proof: We leave these proofs as exercises for the interested reader, noting that the 
proofs will be based on (and in some cases will be identical to) the proofs of Propositions 
5.5.14, 5.5.15 and 5.5.16 respectively. □ 

Remark 5.5.37 To help distinguish between the different types of overlap division we 
have encountered in this chapter, let us now give the following table showing which types 
of overlap each overlap division considers. 

Type A Type B Type C Type D 



Overlap Division Type 




Overlap Type 






A 


B 


C 


D 


Left 


/ 


/ 


/ 


X 


Right 


/ 


X 


/ 


/ 


Strong Left 


/ 


/ 


/ 


X 


Strong Right 


/ 


X 


/ 


/ 


Two-Sided Left 


/ 


/ 


/ 


/ 


Two-Sided Right 


/ 


/ 


/ 


/ 


Prefix-Only Left 


/ 


/ 


X 


X 


Suffix-Only Right 


/ 


X 


X 


/ 


Subword-Free Left 


/ 


X 


X 


X 


Subword-Free Right 


/ 


X 


X 


X 



5.6 Termination 

Given a basis F generating an ideal over a noncommutative polynomial ring TZ, does there 
exist a finite Involutive Basis for F with respect to some admissible monomial ordering 
O and some involutive division J? Unlike the commutative case, where the answer to the 
corresponding question (for certain divisions) is always 'Yes', the answer to this question 
can potentially be 'No', as if the noncommutative Grobner Basis for F with respect to 
O is infinite, then the noncommutative Involutive Basis algorithm will not find a finite 
Involutive Basis for F with respect to / and O, as it will in effect be trying to compute 
the same infinite Grobner Basis. 
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However, a valid follow-up question would be to ask whether the noncommutative In- 
volutive Basis algorithm will terminate in the case that the noncommutative Grobner 
Basis algorithm terminates. In Section 5.4, we defined a property of noncommutative 
involutive divisions (conclusivity) that ensures, when satisfied, that the answer to this 
secondary question is always 'Yes'. Despite this, we will not prove in this thesis that 
any of the divisions we have defined are conclusive. Instead, we leave the following open 
question for further investigation. 

Open Question 3 Are there any conclusive noncommutative involutive divisions that 
are also continuous and either strong or Grobner? 

To obtain an affirmative answer to the above question, one approach may be to start by 
finding a proof for the following conjecture. 

Conjecture 5.6.1 Let O be an arbitrary admissible monomial ordering, and let I be 
an arbitrary involutive division that is continuous and either strong or Grobner. When 
computing an Involutive Basis for some basis F with respect to O and I using Algorithm 
12, if F possesses a finite unique reduced Grobner Basis G with respect to O, then after 
a finite number of steps of Algorithm 12, LM(G) appears as a subset of the set of leading 
monomials of the current basis. 

To prove that a particular involutive division is conclusive, we would then need to show 
that once LM(G) appears as a subset of the set of leading monomials of the current basis, 
then the noncommutative Involutive Basis algorithm terminates (either immediately or 
in a finite number of steps), thus providing the required finite noncommutative Involutive 
Basis for F . 

5.7 Examples 

5.7.1 A Worked Example 

Example 5.7.1 Let F := {/i,/^} = {x 2 y 2 — 2xy 2 + x 2 , x 2 y — 2xy} be a basis for an 
ideal J over the polynomial ring Q(x, y), and let the monomial ordering be DegLex. Let 
us now compute a Locally Involutive Basis for F with respect to the strong left overlap 
division S and thick divisors using Algorithm 12. 
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To begin with, we must autoreduce the input set F. This leaves the set unchanged, 
as we can verify by using the following table of multiplicative variables (obtained by 
using Algorithm 15), where y is right nonmultiplicative for fa because of the overlap 
LM(/ 2 ) = Subword(LM(/i), 1, 3); and x is right nonmultiplicative for fa because we need 
to have a variable in LM(/2) being right nonmultiplicative for fa. 



Polynomial 


M L s {fa,F) 


M§(fi,F) 


fa = x 2 y 2 — 2xy 2 + x 2 


{x. 


y} 


{y} 


fa = x 2 y - 2xy 


{x. 


y} 


{x} 



The above table also provides us with the set S = {fix, f 2 y} = {x 2 y 2 x — 2xy 2 x+x 3 , x 2 y 2 — 
2xy 2 } of prolongations that is required for the next step of the algorithm. As x 2 y 2 < x 2 y 2 x 
in the DegLex monomial ordering, we involutively reduce the element fay € S first. 

f 2 y = x 2 y 2 - 2xy 2 —^ fi x 2 y 2 - 2xy 2 - (x 2 y 2 - 2xy 2 + x 2 ) 

-x 2 . 

As the prolongation did not involutively reduce to zero, we now exit from the second 
while loop of Algorithm 12 and proceed by autoreducing the set F U {/3 := — x 2 } = 
{x 2 y 2 — 2xy 2 + x 2 , x 2 y — 2xy, —x 2 }. 



Polynomial 


M L s {hF) 


MM,F) 


fi = x 2 y 2 — 2xy 2 + x 2 


{x,y} 


{y} 


f 2 = x 2 y - 2xy 


{x, y} 





h = -x 2 


{x,y} 






This process involutively reduces the third term of f\ using ^3, leaving the new set 
{f\ := x 2 y 2 — 2xy 2 , f 2 , fa} whose multiplicative variables are identical to the multi- 
plicative variables of the set {fa, fa, fa} shown above. 

Next, we construct the set S = {fax, fax, fay, fax, fay} of prolongations, processing the 
element fay first. 

fay = -x 2 y —g*-^ ~x 2 y + (x 2 y - 2xy) 
= —2xy. 
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Again the prolongation did not involutively reduce to zero, so we add the involutively 
reduced prolongation to our basis to obtain the set {/ 4 , fa, fa, fa '■= —2xy}. 



Polynomial 


M L s (fa,F) 


M§(fa,F) 


fa = x 2 y 2 - 2x v 2 


{x, y} 


{y} 


fa = x 2 y - 2xy 


{x, y} 





fa = -x 2 


{x,y} 





fa = -2xy 


{x,y} 






This time during autoreduction, the polynomial fa involutively reduces to zero with re- 
spect to the set {fa, fa, fa}- 

fa = x 2 y - 2xy — ^ x 2 y - 2xy + ^x(-2xy) 
= —2xy 
— j*- -2xy - (-2xy) 
0. 

This leaves us with the set {f^, fa, fa} after autoreduction is complete. 



Polynomial 


M L s {fa,F) 


M§(fa,F) 


fa = x 2 y 2 - 2xy 2 


{x. 


y} 


{y} 


fa = -x 2 


{x. 


y} 





fa = -2xy 


{x. 


y} 






The next step is to construct the set S = {f^x, fax, fay, f 5 x, f 5 y} of prolongations, from 
which the element f 5 y is processed first. 

fay = -2xy 2 -.fa. 

When the set {/ 4 , / 3 , f 5 , fa} is autoreduced, the polynomial fa now involutively reduces 
to zero, leaving us with the autoreduced set {/ 3 , fa, fa} = {—x 2 , —2xy, —2xy 2 }. 



Polynomial 


M L s {fa,F) 


M§(fa,F) 


fa = -x 2 


{x,y} 





fa = -2xy 


{x,y} 





fa = ~2xy 2 


{x,y} 


{y} 
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Our next task is to process the elements of the set S = {fex, fey, fex, fey, fex} of 
prolongations. The first element f$y we pick from S involutively reduces to zero, but the 
second element fex does not: 

fey = -2xy 2 —^ fe ~2xy 2 - (-2xy 2 ) 

0; 

fex = -2xyx =: fe. 

After constructing the set {^3, fe, fe, fe}, autoreduction does not alter the contents of 
the set, leaving us to construct our next set of prolongations from the following table of 
multiplicative variables. 



Polynomial 


M L s {feF) 


M§(fe,F) 


fe = -x 2 


{x,y} 





fe = -2xy 


{x,y} 





fe = ~2xy 2 


{x,y} 


{y} 


fe = -2xyx 


{x,y} 






Whilst processing this (7 element) set of prolongations, we add the involutively irreducible 
prolongation fex = —2xy 2 x =: fe to our basis to give a five element set which in unaffected 
by autoreduction. 



Polynomial 


M L s {feF) 


M§(fe,F) 


fe = -x 2 


{x,y} 





fe = ~2xy 


{x,y} 





fe = ~2xy 2 


{x,y} 


{y} 


fe = -2xyx 


{x,y} 





fe = -2xy 2 x 


{x,y} 






To finish, we analyse the elements of the set 



S = {fex, fey, fex, fey, fex, fex, fey, fex, fey} 
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of prolongations in the order fay, fax, fay, fax, fax, fay, fax, fay, fax. 



fay = -2xy 2 



o h 



-2xy 2 - {-2xy 2 ) 
0; 



2^,2 



fax = -2xy x 



O fa 



-2xy 2 x 2 — 2xy 2 (—x 2 ) 



0. 



Because all prolongations involutively reduce to zero (and hence 5 = 0), the algorithm 
now terminates with the Involutive Basis 

G := {—x 2 , —2xy, —2xy 2 , —2xyx, —2xy 2 x] 

as output, a basis which can be visualised by looking at the following (partial) involutive 
monomial lattice for G. 



1 



x 




ir 



x A x 3 y x 2 yx xyx 1 yx A x l y l ky^x) xyxy yxyx yx z y y l x l xy 6 yxy 2, y z xy y 6 x y 



„2 „,„3 „2„,2 L„.2 



2„, „,2^2 „„,3 „„™,2 „,2~ / ,, „,3~ „,4 



For comparison, the (partial) monomial lattice of the reduced DegLex Grobner Basis H 
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for F is shown below, where H := {x 2 , xy} is obtained by applying Algorithm 6 to G. 



x 4 x 3 y x 2 yx xyx 2 yx 3 x 2 y 2 xy 2 x xyxy yxyx yx 2 y y 2 x 2 xy 3 yxy 2 y 2 xy y 3 x y 4 

Looking at the lattices, we can verify that the involutive cones give a disjoint cover of the 
conventional cones up to monomials of degree 4- However, if we were to draw the next 
part of the lattices (monomials of degree 5), we would notice that the monomial xy 3 x is 
conventionally reducible by the Grobner Basis, but is not involutively reducible by the 
Involutive Basis. This fact verifies that when thick divisors are being used, a Locally 
Involutive Basis is not necessarily an Involutive Basis, as for G to be an Involutive Basis 
with respect to S and thick divisors, the monomial xy 3 x has to be involutively reducible 
with respect to G. 

5.7.2 Involutive Rewrite Systems 

Remark 5.7.2 In this section, we use terminology from the theory of term rewriting that 
has not yet been introduced in this thesis. For an elementary introduction to this theory, 
we refer to [5], [19] and [36]. 

Let C = (A | B) be a monoid rewrite system, where A = {ai, . . . ,a n } is an alphabet 
and B = {b±, . . . ,b m } is a set of rewrite rules of the form hi = t{ — > Ti (1 ^ i ^ m; 
£i,ri G A*). Given a fixed admissible well-order on the words in A compatible with C, the 



1 



x 



y 
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Knuth-Bendix critical pairs completion algorithm [39] attempts to find a complete rewrite 
system C for C that is Noetherian and confluent, so that any word over the alphabet 
A has a unique normal form with respect to C . The algorithm proceeds by considering 
overlaps of left hand sides of rules, forming new rules when two reductions of an overlap 
word result in two distinct normal forms. 

It is well known (see for example [33]) that the Knuth-Bendix critical pairs completion 
algorithm is a special case of the noncommutative Grobner Basis algorithm. To find a 
complete rewrite system for C using Algorithm 5, we treat C as a set of polynomials 
F = {£i —ri, £2 — r 2, ■ ■ ■ 1 im — r m} generating a two-sided ideal over the noncommutative 
polynomial ring Z(ai, . . . , a n ), and we compute a noncommutative Grobner Basis G for 
F using a monomial ordering induced from the fixed admissible well-order on the words 
in A. 

Because every noncommutative Involutive Basis (with respect to a strong or Grobner 
involutive division) is a noncommutative Grobner Basis, it is clear that a complete rewrite 
system for C can now also be obtained by computing an Involutive Basis for F, a complete 
rewrite system we shall call an involutive complete rewrite system. 

The advantage of involutive complete rewrite systems over conventional complete rewrite 
systems is that the unique normal form of any word over the alphabet A can be obtained 
uniquely with respect to an involutive complete rewrite system (subject of course to 
certain conditions (such as working with a strong involutive division) being satisfied), a 
fact that will be illustrated in the following example. 

Example 5.7.3 Let C := (Y,X,y,x \ x 3 — > e, y 2 — > e, (xy) 2 — > e, Xx — > e, xX — > 
e, Yy — > e, yY — > e) be a monoid rewrite system for the group S3, where e denotes the 
empty word, and Y > X > y > x is the alphabet ordering. If we apply the Knuth-Bendix 
algorithm to C with respect to the DegLex (word) ordering, we obtain the complete 
rewrite system 

C' := (Y, X,y,x \ xyx — * y, yxy — > X, x 2 X, Xx —> e, y 2 —> e, Xy — > yx, xX —> 

e, yX -> xy, X 2 -> x, Y — > y). 

With respect to the DegLex monomial ordering and the left division, if we apply Algorithm 
12 to the basis F := {x 3 — 1, y 2 — 1, (xy) 2 —l, Xx—1, xX — 1, Yy—1, yY—1} corresponding 
to C, we obtain the following Involutive Basis for F (which we have converted back to a 
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rewrite system to give an involutive complete rewrite system C" for C). 

C" := (F, X, y, x \ y 2 — > e, Xx — > e, xX — > e, Yy — > e, y 2 x — > x, F — > y, Fx — i 
yx, Xxy — > y, Yyx — ► x, x 2 — > X, X 2 — >■ x, xyx — > Xy — > yx, Xyx — > xy, x 2 y 
yx, yX — > xy, yxy — * X, Fxy — * X, FX — > xy). 



With the involutive complete rewrite system, we are now able to uniquely reduce each 
word over the alphabet {F, X, y, x} to one of the six elements of S3. To illustrate this, 
consider the word yXYx. Using the 10 element complete rewrite system C obtained by 
using the Knuth-Bendix algorithm, there are several reduction paths for this word, as 
illustrated by the following diagram. 



xyYx 




However, by involutively reducing the word yXYx with respect to the 19 element invo- 
lutive complete rewrite system C", there is only one reduction path, namely 



yXYx 

Yx^yx 

yXyx 

Xyx—>xy 

yxy 

yxy->X 
X 



CHAPTER 5. NONCOMMUTATIVE INVOLUTIVE BASES 



157 



5.7.3 Comparison of Divisions 

Following on from the S3 example above, consider the basis F := {x 4 — 1, y 3 — 1, (xy) 2 — 
1, Xx — 1, xX — 1, Yy — 1, yY — 1} over the polynomial ring Q(Y, X, y, x) corresponding 
to a monoid rewrite system for the group S4. With the monomial ordering being DegLex, 
below we present some data collected when, whilst using a prototype implementation 
of Algorithm 12 (as given in Appendix B), an Involutive Basis is computed for F with 
respect to several different involutive divisions (the reduced DegLex Grobner Basis for F 
has 21 elements). 

Remark 5.7.4 The program was run using FreeBSD 5.4 on an AMD Athlon XP 1800+ 
with 512MB of memory. 



Key 


Involutive Division 


Key 


Involutive Division 


1 


Left Division 


7 


Subword-Free Left Overlap Division 


2 


Right Division 


8 


Right Overlap Division 


3 


Left Overlap Division 


9 


Strong Right Overlap Division 


4 


Strong Left Overlap Division 


10 


Two-Sided Right Overlap Division 


5 


Two-Sided Left Overlap Division 


11 


Suffix-Only Right Overlap Division 


6 


Prefix-Only Left Overlap Division 


12 


Subword-Free Right Overlap Division 



Division 


Size of Basis 


Number of 


Number of 


Time 






Prolongations 


Involutive Reductions 




1 


73 


104 


15947 


0.77 


2 


73 


104 


13874 


0.74 


3 


65 


64 


10980 


8.62 


4 


73 


94 


15226 


23.14 


5 


77 


70 


12827 


16.04 


6 


65 


64 


10980 


8.97 


7 


65 


64 


10980 


7.13 


8 


73 


76 


11046 


13.27 


9 


73 


95 


13240 


26.16 


10 


87 


80 


13005 


24.53 


11 


73 


76 


11046 


13.40 


12 


69 


82 


10458 


9.52 



CHAPTER 5. NONCOMMUTATIVE INVOLUTIVE BASES 



158 



We note that the algorithm completes quickest with respect to the global left or right 
divisions, as (i) we can take advantage of the efficient involutive reduction with respect 
to these divisions (see Section 5.5.1); and (ii) the multiplicative variables for a particular 
monomial with respect to these divisions is fixed (each time the basis changes when us- 
ing one of the other local divisions, the multiplicative variables have to be recomputed). 
However, we also note that more prolongations are needed when using the left or right 
divisions, so that, in the long run, if we can devise an efficient way of finding the multi- 
plicative variables for a set of monomials with respect to one of the local divisions, then 
the algorithm could (perhaps) terminate more quickly than for the two global divisions. 

5.8 Improvements to the Noncommutative Involu- 
tive Basis Algorithm 

5.8.1 Efficient Reduction 

Conventionally, we divide a noncommutative polynomial p with respect to a set of poly- 
nomials P using Algorithm 2. In this algorithm, an important step is to find out if a 
polynomial in P divides one of the monomials u in the polynomial we are currently re- 
ducing, stated as the condition 'if (LM(pj) | u) then' in Algorithm 2. One way of finding 
out if this condition is satisfied would be to execute the following piece of code, where 
a := deg(w); ft := deg(LM(pj)); and we note that a — ft + 1 operations are potentially 
needed to find out if the condition is satisfied. 

i = l; 

while (i ^ a — ft + 1) do 

if (LM(pj) == Subword(w, i, i + ft — 1)) then 

return true; 
else 

end if 
end while 
return false; 



When involutively dividing a polynomial p with respect to a set of polynomials P and 
some involutive division /, the corresponding problem is to find out if some monomial 
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LM(pj) is an involutive divisor of some monomial u. At first glance, this problem seems 
more difficult than the problem of finding out if LM(pj) is a conventional divisor of it, as 
it is not just sufficient to discover one way that LM(pj) divides u (as in the code above) 
- we have to verify that if we find a conventional divisor of u, then it is also an involutive 
divisor of u. Naively, assuming that thin divisors are being used, we could solve the 
problem using the code shown below, code that is clearly less efficient than the code for 
the conventional case shown above. 

i = l; 

while (i ^ a — (3 + 1) do 

if (LMOj) == Subword(w,M + (3 - 1)) then 

if ((j == 1) or ((i > 1) and (Subword(u,i - l,i - 1) G M^{lM(p j ) 1 LM(P)))) 
then 

if {{i == a - (3 + 1) or {{i < a - (3 + 1) and (Subword(w, i + (3,i + (3) G 
Mf(LM( Pj ),LM(P)))) then 

return true; 
end if 
end if 
else 

end if 
end while 
return false; 

However, for certain involutive divisions, it is possible to take advantage of some of the 
properties of these divisions in order to make it easier to discover whether LM(pj) is an 
involutive divisor of u. We have already seen this in action in Section 5.5.1, where we 
saw that LMfjo,-) can only involutively divide u with respect to the left or right divisions 
if LM(pj) is a suffix or prefix of u respectively. 

Let us now consider an improvement to be used whenever (i) an 'overlap' division that 
assigns all variables to be either left multiplicative or right multiplicative is used (ruling 
out any 'two-sided' overlap divisions); and (ii) thick divisors are being used. For the case 
of such an overlap division that assigns all variables to be left multiplicative (for example 
the left overlap division), the following piece of code can be used to discover whether or 
not LM(pj) is an involutive divisor of u (note that a similar piece of code can be given 
for the case of an overlap division assigning all variables to be right multiplicative). 
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k = a; skip = 0; 
while (k ^ f3+ 1) do 

if (Subword(w, k, k) £ Mf(LM(j)j), LM(P))) then 

skip = k; k = (3; 
else 

k = k - 1; 
end if 
end while 

if (skip == 0) then 

z = l; 
else 

i = skip — /3 + 1 ; 
end if 

while (i ^ a — (3 + 1) do 

if (LM(pj) == Subword(u, i, i + /3 - 1)) then 

return true; 
else 

end if 
end while 
return false; 



We note that the final section of the code (from 'while (i ^ a — (3 + 1) do' onwards) 
is identical to the code for conventional reduction; the code before this just chooses the 
initial value of % (we rule out looking at certain subwords by analysing which variables in 
u are right nonmultiplicative for LM(p 3 -)). For example, if u := xy 2 xyxy; LM(p 3 -) := xyx; 
and only the variable x is right nonmultiplicative for pj, then in the conventional case 
we need 4 subword comparisons before we discover that LM(p 3 -) is a conventional divisor 
of u; but in the involutive case (using the code shown above) we only need 1 subword 
comparison before we discover that LM(pj) is an involutive divisor of u (this is because 
the variable Subword(w, 6, 6) = x is right nonmultiplicative for LM(pj), leaving just two 
subwords of u that are potentially equal to LM(pj) in such a way that LM(pj) is an 
involutive divisor of u). 
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Conventional Reduction 

x y y x y x y 

i = l x y x 

i = 2 x y x 

i = 3 x y x 

i = 4 x y x 



Involutive Reduction 

x y y x y x y 
i = 4 x y x 



Of course our new algorithm will not always 'win' in every case (for example if u := 
xyx 2 yxy and LM(pj) := xyx), and we will always have the overhead from having to 
determine the initial value of i, but the impression should be that we have more freedom 
in the involutive case to try these sorts of tricks, tricks which may lead to involutive 
reduction being more efficient than conventional reduction. 



5.8.2 Improved Algorithms 

Just as Algorithm 9 was generalised to give an algorithm for computing noncommutative 
Involutive Bases in Algorithm 12, it is conceivable that other algorithms for computing 
commutative Involutive Bases (as seen for example in [24]) can be generalised to the 
noncommutative case. Indeed, in the source code given in Appendix B, a noncommutative 
version of an algorithm found in [23, Section 5] for computing commutative Involutive 
Bases is given; we present below data obtained by applying this new algorithm to our S4 
example from Section 5.7.3 (the data from Section 5.7.3 is given in brackets for comparison; 
we see that the new algorithm generally analyses more prolongations but performs less 
involutive reduction). 
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Division 


Size of Basis 


Number of 
Prolongations 


Number of 
Involutive Reductions 


Time 


1 


73 (73) 


323 (104) 


875 (15947) 


0.72 (0.77) 


2 


73 (73) 


327 (104) 


929 (13874) 


0.83 (0.74) 


3 


70 (65) 


288 (64) 


831 (10980) 


5.94 (8.62) 


4 


73 (73) 


318 (94) 


863 (15226) 


4.62 (23.14) 


5 


70 (77) 


288 (70) 


831 (12827) 


5.79 (16.04) 


6 


70 (65) 


288 (64) 


831 (10980) 


5.71 (8.97) 


7 


69 (65) 


288 (64) 


833 (10980) 


5.33 (7.13) 


8 


68 (73) 


358 (76) 


1092 (11046) 


28.51 (13.27) 


9 


73 (73) 


322 (95) 


917 (13240) 


6.39 (26.16) 


10 


68 (87) 


358 (80) 


1092 (13005) 


28.75 (24.53) 


11 


68 (73) 


358 (76) 


1092 (11046) 


28.54 (13.40) 


12 


66 (69) 


364 (82) 


1127 (10458) 


28.87 (9.52) 



5.8.3 Logged Involutive Bases 

A (noncommutative) Logged Involutive Basis expresses each member of an Involutive 
Basis in terms of members of the original basis from which the Involutive Basis was 
computed. 

Definition 5.8.1 Let G = {gi, . . . ,g p } be an Involutive Basis computed from an initial 
basis F = {f\, . . . , f m }. We say that G is a Logged Involutive Basis if, for each g^ £ G, 
we have an explicit expression of the form 

P 

9i = ^ ^ @afk a r ai 
a=l 

where the l a and the r a are terms and fk a £ F for all 1 ^ a ^ /3. 

Proposition 5.8.2 Let F = {fi, . . . , f m } be a finite basis over a noncommutative poly- 
nomial ring. If we can compute an Involutive Basis for F, then it is always possible to 
compute a Logged Involutive Basis for F. 

Proof: Let G = {gi,...,g p } be an Involutive Basis computed from the initial basis 
F = {/i, . . . , f m } using Algorithm 12 (where fi £ R{x±, . . . ,x n ) for all fi £ F). If an 
arbitrary gi £ G is not a member of the original basis F, then either g^ is an involutively 
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reduced prolongation, or g^ is obtained through the process of autoreduction. In the 
former case, we can express gi in terms of members of F by substitution because either 

P 

a=l 

or 

a 

gt = hxj - y^J a h ka r a 

a=l 

for a variable Xj] terms £ a and r a ; and polynomials h and hk a which we already know 
how to express in terms of members of F. In the latter case, 

P 

9i = h- )J a h ka r a 

a=t 

for terms £ a ,r a and polynomials h and h^ a which we already know how to express in 
terms of members of F, so it follows that we can again express gi in terms of members of 
F. □ 

Example 5.8.3 Let F := {fi, f 2 } = {x 3 + 3xy — yx, y 2 + x} generate an ideal over the 
polynomial ring Q(x, y); let the monomial ordering be DegLex; and let the involutive divi- 
sion be the left division. In obtaining an Involutive Basis for F using Algorithm 12, a poly- 
nomial is added to F; j\ is involutively reduced during autoreduction; and then four more 
polynomials are added to F, giving an Involutive Basis G := {gi, g 2 , <?3, #4, g$, g§, g-j} = 
{x 3 + 2yx, y 2 + x, xy — yx, y 2 x + x 2 , xyx — yx 2 , y 2 x 2 — 2yx, xyx 2 — 2x 2 }. 



The five new polynomials were obtained by involutively reducing the prolongations f 2 y, 
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f 2 x, g$x, g^x and g$x respectively. 



f2V 


= 




y 3 + xy 






< 


h 


y 3 + xy - y(y 2 + x) 




= 




xy - yx; 




f2X 


= 




2 i 2 

y x + x ; 




93% 







xyx — yx 2 : 




g 4 x 






y 2 x 2 + x 3 






< 


91 


y 2 x 2 + x 3 - 


[x 3 + 2yx) 








y 2 x 2 — 2yx; 




9bX 






xyx 2 — yx 3 








91 


xyx 2 — yx 3 H 


- y(x 3 + 2yx) 








xyx 2 + 2y 2 x 






< 


94 


xyx 2 + 2y 2 x 


- 2(y 2 x + x 2 








xyx 2 — 2x 2 . 





These reductions (plus the reduction 

■ft ~~ <*sa x3 + 3xy -yx-3(xy- yx) 

= x 3 + 2yx 

of fi performed during autoreduction after g 3 is added to F) enable us to give the following 
Logged Involutive Basis for F . 



Member of G 


Logg 


ed Representation 


gi = x 3 + 2yx 


fi- 




92 = y 2 + x 


f2 




93 = xy- yx 


f2V - 


-yf2 


g^ = y 2 x + x 2 


f2X 




g 5 = Xyx - y X 2 


f2yx 


-yf2x 


g 6 = y 2 x 2 - 2yx 




+ hx 2 + Sf 2 y - 3yf 2 


gi = xyx 2 — 2x 2 


yfi - 


h 3y 2 /2 + f2yx 2 - 2f 2 x - yf 2 x 2 - 3yf 2 y 



Chapter 



6 



Grobner 



Walks 



When computing any Grobner or Involutive Basis, the monomial ordering that has been 
chosen is a major factor in how long it will take for the algorithm to complete. For 
example, consider the ideal J generated by the basis F := {— 2x 3 z + y A + y 3 z — x 3 + 
x 2 y, 2xy 2 z + yz 3 + 2yz 2 , x 3 y + 2yz 3 — 3yz 2 + 2} over the polynomial ring Q[x, y, z\. Using 
our test implementation of Algorithm 3, it takes less than a tenth of a second to compute 
a Grobner Basis for F with respect to the DegRevLex monomial ordering, but 90 seconds 
to compute a Grobner Basis for F with respect to Lex. 

The Grobner Walk, introduced by Collart, Kalkbrener and Mall in [18], forms part of 
a family of basis conversion algorithms that can convert Grobner Bases with respect to 
'fast' monomial orderings to Grobner Bases with respect to 'slow' monomial orderings (see 
Section 2.5.4 for a brief discussion of other basis conversion algorithms). This process is 
often quicker than computing a Grobner Basis for the 'slow' monomial ordering directly, 
as can be demonstrated by stating that in our test implementation of the Grobner Walk, 
it only takes half a second to compute a Lex Grobner Basis for the basis F defined above. 

In this chapter, we will first recall the theory of the (commutative) Grobner Walk, based 
on [18] and a paper [1] by Amrhein, Gloor and Kiichlin; the reader is encouraged to read 
these papers in conjunction with this Chapter. We then describe two generalisations of 
the theory to give (i) a commutative Involutive Walk (due to Golubitsky [30]); and (ii) 
noncommutative Walks between harmonious monomial orderings. 
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6.1 Commutative Walks 



To convert a Grobner Basis with respect to one monomial ordering to a Grobner Basis 
with respect to another monomial ordering, the Grobner Walk works with the matrices 
associated to the orderings. Fortunately, [48] and [56] assert that any commutative mono- 
mial ordering has an associated matrix, allowing the Grobner Walk to convert between 
any two monomial orderings. 



6.1.1 Matrix Orderings 

Definition 6.1.1 Let m be a monomial over a polynomial ring R[x\, . . . ,x n ] with as- 
sociated multidegree (e 1 , . . . , e 



If uj = (a; 1 , . . . ,u n ) is an n-dimensional weight vector 
(where w'eQ for all 1 ^ % ^ n), we define the u-degree ofm, written deg^m), to be the 
value 

degjm) = (e 1 x uj 1 ) + (e 2 x uj 2 ) + ■ ■ ■ + (e n x u n ). 

Remark 6.1.2 The cu-degree of any term is equal to the cu-degree of the term's associated 
monomial. 

Definition 6.1.3 Let mi and m,2 be two monomials over a polynomial ring R[x±, . . . , x n ] 

en); and let Q be an N x n 



with associated multidegrees e\ 



'it 



) and e2 



(4 



5 ^2 It 



matrix. If uji denotes the n-dimensional weight vector corresponding to the i-th row of Q, 
then Q determines a monomial ordering as follows: m\ < m 2 if deg^ (mi) < deg (J .(m2) 
for some 1 ^ i ^ N and deg Wj (mi) = deg Wj . (m 2 ) for all 1 ^ j < i. 

Definition 6.1.4 The corresponding matrices for the five monomial orderings defined in 
Section 1.2.1 are 



Lex 



/ 1 
1 
1 








\ 





1 
I) 



( 




InvLex 









1 . 


. 








1 


. 


. 





1 





. 


. 






i N 

1 



CHAPTER 6. GROBNER WALKS 



167 



1 1 1 ... 1 1 \ 
... 1 
... 1 



1 ... 
1 ... j 

l\ 

-1 




Example 6.1.5 Let ra\ := x 2 y 2 z 2 and m 2 : = x 2 y 3 z be two monomials over the polyno- 
mial ring 1Z := Q[x, y, z]. According to the matrix 

/ 1 1 1 \ 

1 
\0 1 0/ 

representing the DegLex monomial ordering with respect to TZ, we can deduce that mi < 
m 2 because deg Wl (mi) = deg Wi (m 2 ) = 6; deg W2 (mi) = deg^rr^) = 2; and deg a;3 (m 1 ) = 
2 < deg W3 (m 2 ) = 3. 

Definition 6.1.6 Given a polynomial p and a weight vector cu, the initial of p with 
respect to u>, written in w (p), is the sum of those terms in p that have maximal cu-degree. 
For example, if u = (0, 1, 1) and p = x A + xy 2 z + y 3 + then im_,(p) = xy 2 2 + y 3 . 

Definition 6.1.7 A weight vector u is compatible with a monomial ordering O if, given 
any polynomial p = + - • - + t m ordered in descending order with respect to O, deg^(ti) ^ 
deg^(tj) holds for all 1 < % ^ m. 

6.1.2 The Commutative Grobner Walk Algorithm 



DegLex 



( 1 1 1 

1 

1 

1 







1 1 N 







DegRevLex 







DeglnvLex 




-1 



-1 




/ 








1 


1 


1 . . 


1 








.. 











.. 


. -1 








We present in Algorithm 17 an algorithm to perform the Grobner Walk, modified from 
an algorithm given in [1] . 
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Algorithm 17 The Commutative Grobner Walk Algorithm 

Input: A Grobner Basis G = {gi, g2, ■ ■ ■ , g m } with respect to an admissible monomial or- 
dering O with an associated matrix A, where G generates an ideal J over a commutative 
polynomial ring 1Z = R[x\, . . . , x n ]. 

Output: A Grobner Basis H = {hi, /12, • • • , h p } for J with respect to an admissible 
monomial ordering O' with an associated matrix B. 

Let <jj and r be the weight vectors corresponding to the first rows of A and B\ 

Let C be the matrix whose first row is equal to u and whose remainder is equal to the 

whole of the matrix B; 

t = 0; found = false; 

repeat 

Let G' = {in^^j)} for all g^ G G; 

Compute a reduced Grobner Basis H' for G' with respect to the monomial ordering 
defined by the matrix C (use Algorithms 3 and 4); 
if =0; 

for each h! E H' do 

Let ^2 J i=1 Pig'i be the logged representation of h! with respect to G' (where g[ G G' 
and pi G 1Z), obtained either through computing a Logged Grobner Basis above or 
by dividing h' with respect to G'\ 

H = H Li {J2i=iPi9i}i where ^(gi) = g\\ 
end for 

Reduce H with respect to C (use Algorithm 4); 
if (t == 1) then 

found = true; 
else 

t = min({s I deg wW (pi) = deg^fo), deg w(0) (pi) ^ deg w(0) (^), 

^ = Pi H hPfc G if} n (0, 1]), where w(s) := u; + s(r - a;) for < s ^ 1; 

end if 

if (t is undefined) then 

found = true; 
else 

G = H;u = (l-t)u + tr; 
end if 
until (found = true) 
return H; 
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Some Remarks: 

• In the first iteration of the repeat . . . until loop, G' is a Grobner Basis for the ideal 1 
in tJ ( J) with respect to the monomial ordering defined by C, as uj is compatible with 
C. During subsequent iterations of the same loop, G' is a Grobner Basis for the 
ideal m u (J) with respect to the monomial ordering used to compute H during the 
previous iteration of the repeat . . . until loop, as uj is compatible with this previous 
ordering. 

• The fact that any set H constructed by the for loop is a Grobner Basis for J with 
respect to the monomial ordering defined by C is proved in both [1] and [18] (where 
you will also find proofs for the assertions made in the previous paragraph). 

• The section of code where we determine the value of t is where we determine the 
next step of the walk. We choose t to be the minimum value of s in the interval 
(0, 1] such that, for some polynomial h G H, the a;-degrees of LT(/i) and some other 
term in h differ, but the u;(s)-degrees of the same two terms are identical. We say 
that this is the first point on the line segment between the two weight vectors uj and 
r where the initial of one of the polynomials in H degenerates. 

• The success of the Grobner Walk comes from the fact that it breaks down a Grobner 
Basis computation into a series of smaller pieces, each of which computes a Grobner 
Basis for a set of initials, a task that is usually quite simple. There are still cases 
however where this task is complicated and time-consuming, and this has led to the 
development of so-called path perturbation techniques that choose 'easier' paths on 
which to walk (see for example [1] and [53]). 

6.1.3 A Worked Example 

Example 6.1.8 Let F := {xy — z, yz + 2x + z} be a basis generating an ideal J over 
the polynomial ring Q[x,y,z\. Consider that we want to obtain the Lex Grobner Basis 
H := {2x + yz + z, y 2 z + yz + 2z} for J from the DegLex Grobner Basis G := {xy — 
z, yz + 2x + z, 2x 2 + xz + z 2 } for J using the Grobner Walk. Utilising Algorithm 17 to 
do this, we initialise the variables as follows. 

1 The ideal in^J) is defined as follows: p e J if and only if in w (p) G in w (J). 
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( 1 


1 


1 ^ 




( 1 





o\ 


A = 


1 








]B = 





1 







u 


1 






I o 





1 / 



; w = (1, 1, 1); r 



£ = 0; found = false. 



1,0,0); C 



f l 1 l\ 

1 

1 

1 



Let us now describe what happens during each pass of the repeat. . . until loop of Al- 
gorithm 17, noting that as A is equivalent to C to begin with, nothing substantial will 
happen during the first pass through the loop. 



Pass 1 



Construct the set of initials: G' := {g[, g' 2 , g' 3 } = {xy, yz, 2x 2 + xz + z 2 } (these 
are the terms in G that have maximal (1,1, l)-degree). 



Compute the Grobner Basis H' of G' with respect to C . 
S-po%i,0a) = 



xyz xyz 
-(xy) (yz) 



xy 



0; 

2 

x y 
xy 

1 1 2 

~2 XyZ ~ 2 yZ 



^(2x 2 + xz + z 2 ) 



g', 2 
0; 



yz 



S-poi(^ 2 , g's) 

It follows that H' — G'. 



(by Buchberger's First Criterion). 



As H' — G', H will also be equal to G, so that H :- 
2x + z, 2x 2 + xz + z 2 }. 



{h ± , h 2 , h 3 } = {xy - z, yz + 



Let 



uj(s) := us + s(t — uj) 

= (l,l,l)+s((l, 0,0) -(1,1,1)) 

= (l,l,l) + s(0,-l,-l) 

= (l,l- s ,l- s ). 
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To find the next value of t, we must find the minimum value of s such that the 
cj(s)-degrees of the leading term of a polynomial in H and some other term in the 
same polynomial agree where their cu-degrees currently differ. 

The u;-degrees of the two terms in h\ differ, so we can seek a value of s such that 

deg w(s) (xy) = deg w(s) (z) 

l + (l-s) = (1-s) 

1 = (inconsistent). 

For /&2, we have two choices: either 



deg w(s) (^) 
:i-s) + (l-s) 
2 - 2s 
s 



deg w(s) (x) 

1 

1 
1 

2 : 



or 



s) + (1 - s) 
(1-s) 

s 



deg 



;i - *) 





1. 



The o;-degrees of all the terms in h% are the same, so we can ignore it. 

It follows that the minimum value of s (and hence the new value of t) is |. As 
this value appears in the interval (0,1], we set G = H; set the new value of uj 
to be (1 — |)(1, 1, 1) + |(1, 0, 0) = (1, 2> 2) ( an d hence change C to be the matrix 
/ 



1 



2 2 

1 

1 

1 



2 

1 \ 



and embark upon a second pass of the repeat. . . until loop. 



Pass 2 



Construct the set of initials: G 1 := {g[, g' 2 , g' 3 } = {xy, 2x + yz, 2x 2 } (these are the 
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terms in G that have maximal (1, |, ^"degree). 
Compute the Grobner Basis of G' with respect to C. 

S-pol(^i, g 2 ) = —(xy) -^-(2x + yz) 
xy 2x 

1 2 

= -^y z = : 94, 

= 0; 

2 2 

S-polQ/a,^) = ^(2x + ^)-^(2x 2 ) 



r 9i 



1 

2 
0; 

xy^ z xy^ 1 z f X 

S-pol^i,^) = (xy) rT - ~-y 2 z 

xy -±y 2 z V 2 

= 0; 



—xyz 



S-po\(g' 2 , g'^) = (by Buchberger's First Criterion); 
S-pol((?3, g' 4 ) = (by Buchberger's First Criterion). 

It follows that G' = {g[, g' 2 , g' 3 , g' 4 } = {xy, 2x + yz, 2x 2 , — \y 2 z) is a Grobner Basis 
for in^(J) with respect to C . 

Applying Algorithm 4 to G', we can remove g[ and g' 3 from G' (because LM(g[) = 
y x LM(g' 2 ) and LM(g' 3 ) = x x LM(g' 2 )); we must also multiply g 2 and g 4 by \ and —2 
respectively to obtain unit lead coefficients. This leaves us with the unique reduced 
Grobner Basis H' := {h[, h 2 } = {x + \yz, y 2 z} for m UJ ( J) with respect to C. 

We must now express the two elements of H' in terms of members of G'. 

1 1 / 

h x = x + -yz = -g 2 ; 

h 2 = y 2 z = —2 ^(xy) — -y(2x + yz)^j (from the S-polynomial) 

= -^U-^yg'X 



Lifting to the full polynomials, h[ lifts to give the polynomial h\ := x + \yz + ^z; 
h' 2 lifts to give the polynomial h 2 := —2((xy — z) — \y(2x + yz + z)) = —2xy + 
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2z + 2xy + y 2 z + yz = y 2 z + yz + 2z; and we are left with the Grobner Basis 
H := {h\, h 2 } = {x + \yz + \z, y 2 z + yz + 2z} for J with respect to C . 



Let 



o;(s) := uj + s(t — to) 



1.5. 5) +«((i.o.o) -(1,5, 5 
1.5(1— 



Finding the minimum value of s, for /ii we can have 



deg w(s) 0) = deg, 



z 



u)(s) 

1 = 

s = —1 (undefined: we must have s G (0, 1]). 
Continuing with /i 2 , we can either have 

deg^s^z) = deg„ {s) (yz) 

3(5(1-)) - 2g ( i- s ; 
i(i-) - 

s = 1; 

or 



deg wW (j/ 2 z) = deg a;(s) (z) 



J 2 
1 - s = 

s = I. 



It follows that the minimum value of s (and hence the new value of t) is 1. As 
this value appears in the interval (0,1], we set G = H; set the new value of u 
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1 l- 

2' 2> 



to be (1 - 1)(1, 
/ 1 \ 
1 
1 

V° 1 J . 

repeat. . . until loop. 



+ 1(1,0,0) = (1,0,0) (and hence change C to be the matrix 
and embark upon a third (and final) pass of the 



/ 1 \ 
1 

U o l) 



Pass 3 



• Construct the set of initials: G' := {g[, g' 2 } = {x, y 2 z + yz + 2z} (these are the 
terms in G that have maximal (1,0, 0)-degree). 

• Compute the Grobner Basis H' of G' with respect to C . 

S-pol^, g'2) — (by Buchberger's First Criterion). 

It follows that H' = G'. 

• As H' — G', H will also be equal to G, so that H := {hi, h 2 } = {x + ^yz + ^z, y 2 z + 
yz + 2z}. Further, as t is now equal to 1, we have arrived at our target ordering 
(Lex) and can return H as the output Grobner Basis, a basis that is equivalent to 
the Lex Grobner Basis given for J at the beginning of this example. 



We can summarise the path taken during the walk in the following diagram. 




CHAPTER 6. GROBNER WALKS 



175 



Algorithm 18 The Commutative Involutive Walk Algorithm 

Input: An Involutive Basis G = {g±, g2, ■ ■ ■ , g m } with respect to an involutive division / 
and an admissible monomial ordering O with an associated matrix A, where G generates 
an ideal J over a commutative polynomial ring 1Z = R[x±, . . . , x n ]. 

Output: An Involutive Basis H = {hi, h,2, ■ ■ ■ , h p } for J with respect to I and an admis- 
sible monomial ordering O' with an associated matrix B. 

Let to and r be the weight vectors corresponding to the first rows of A and B; 

Let C be the matrix whose first row is equal to uj and whose remainder is equal to the 

whole of the matrix B; 

t = 0; found = false; 

repeat 

Let G' = {in^gi)} for all & G G; 

Compute an Involutive Basis H' for G' with respect to the monomial ordering defined 

by the matrix C (use Algorithm 9); 

#=0; 

for each h! G H' do 

L e t ^2i=iPi9i be the logged representation of h' with respect to G' (where g\ G G' 
and pi G 1Z), obtained either through computing a Logged Involutive Basis above 
or by involutively dividing h' with respect to G'; 

H = HU {Yfi=iPi9ih where in "(gi) = 9i, 
end for 

if (t == 1) then 

found = true; 
else 

t = min({s | deg w(s) (pi) = deg w(s) (pi), deg w(0) (pi) ^ deg w(0) (pi), 

h =px-\ h Pfc G if} n (0, 1]), where w(s) := u + s(r - a;) for < s ^ 1; 

end if 

if (i is undefined) then 

found = true; 
else 

G = H; u = (1 -t)u + tr; 
end if 
until (found = true) 
return H; 
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6.1.4 The Commutative Involutive Walk Algorithm 

In [30], Golubitsky generalised the Grobner Walk technique to give a method for convert- 
ing an Involutive Basis with respect to one monomial ordering to an Involutive Basis with 
respect to another monomial ordering. Algorithmically, the way in which we perform this 
Involutive Walk is virtually identical to the way we perform the Grobner Walk, as can be 
seen by comparing Algorithms 17 and 18. The change however comes when proving the 
correctness of the algorithm, as we have to show that each G' is an Involutive Basis for 
in w (J) and that each H is an Involutive Basis for J (see [30] for these proofs). 

6.2 Noncommutative Walks 

In the commutative case, any monomial ordering can be represented by a matrix that 
provides a decomposition of the ordering in terms of the rows of the matrix. This decom- 
position is then utilised in the Grobner Walk algorithm when (for example) we use the 
first row of the matrix to provide a set of initials for a particular basis G (cf. Definition 
6.1.6). 

In the noncommutative case, because monomials cannot be represented by multidegrees, 
monomial orderings cannot be represented by matrices. This seems to shut the door on 
any generalisation of the Grobner Walk to the noncommutative CclSG, clS not only is there 
no first row of a matrix to provide a set of initials, but no notion of a walk between two 
matrices can be formulated either. 

Despite this, we note that in the commutative case, if the first rows of the source and 
target matrices are the same, then the Grobner Walk will complete in one pass of the 
algorithm, and all that is needed is the first row of the source matrix to provide a set of 
initials to work with. 

Generalising to the noncommutative case, it is possible that if we can find a way to 
decompose a noncommutative monomial ordering to provide a set of initials to work 
with, then a noncommutative Grobner Walk algorithm could complete in one pass if the 
source and target monomial orderings used the same method to compute sets of initials. 
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6.2.1 Functional Decompositions 

Considering the monomial orderings defined in Section 1.2.2, we note that all the orderings 
are defined step-by-step. For example, the DegLex monomial ordering compares two 
monomials by degree first, then by the first letter of each monomial, then by the second 
letter, and so on. This provides us with an opportunity to decompose each monomial 
ordering into a series of steps or functions, a decomposition we shall term a functional 
decomposition. 

Definition 6.2.1 An ordering function is a function 



that assigns an integer to any monomial m G M, where M denotes the set of all monomials 
over a polynomial ring R(x±, . . . , x n ). We call the integer assigned by 9 to m the 9- value 
of m. 

Remark 6.2.2 The 9- value of any term will be equal to the 9- value of the term's asso- 
ciated monomial. 

Definition 6.2.3 A functional decomposition is a (possibly infinite) sequence of order- 
ing functions, written = {6i, 02, ■ ■ •}■ 

Definition 6.2.4 Let O be a monomial ordering; let mi and rri2 be two arbitrary mono- 
mials such that mi < m 2 with respect to O; and let = {61,62, . . .} be a functional 
decomposition. We say that defines O if and only if ^(roi) < ^(m 2 ) for some i ^ 1 
and 6j(mi) = 9j(rri2) for all 1 ^ j < i. 

To describe the functional decompositions corresponding to the monomial orderings de- 
fined in Section 1.2.2, we first need the following definition. 

Definition 6.2.5 Let m be an arbitrary monomial over a polynomial ring R(x±, . . . , x n ). 
The i-th valuing function of m, written val,;(m), is an ordering function that assigns an 
integer to m as follows. 



6 : M 



Z 




j if Subword(m, i, 1) = Xj (where 1 ^ j ^ n). 

n + 1 if Subword(m, i, i) is undefined. 
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Let us now describe the functional decompositions corresponding to those monomial or- 
derings defined in Section 1.2.2 that are admissible. 

Definition 6.2.6 The functional decomposition = {61,62, ■ ■ ■} corresponding to the 
DegLex monomial ordering is defined (for an arbitrary monomial m) as follows. 



Example 6.2.7 Let mi := xyxz 2 and m 2 := xzyz 2 be two monomials over the poly- 
nomial ring Q(x,y,z). With respect to DegLex, we can work out that xyxz 2 > xzyz 2 , 
because 9\(m\) = 6*i(m 2 ) (or deg(mi) = deg(m 2 )); #2 (mi) = #2(m 2 ) (or n+1— vali(mi) = 
n + 1 — vali (7712), 3 + 1 — 1 = 3 + 1 — 1); and #3 (mi) > 6 3 (m 2 ) (or n + 1 — val 2 (mi) > 
n + 1 — val 2 (m2), 3 + 1 — 2 > 3 + 1 — 3). Similarly, with respect to DeglnvLex, we can 
work out that xyxz 2 < xzyz 2 (because #3 (mi) < 6 , 3 (m 2 ), or 2 < 3); and with respect to 
DegRevLex, we can work out that xyxz 2 < xzyz 2 (because #4 (mi) < 64(7712), or 1 < 2). 

Definition 6.2.8 Given a polynomial p and an ordering function 9, the initial of p with 
respect to 9, written mg(p), is made up of those terms in p that have maximal 9- value. For 
example, if 9 is the degree function and if p = x 4 + zxy 2 + y 3 + z 2 x , then mg(p) = x 4 + zxy 2 . 

Definition 6.2.9 Given an ordering function 9, a polynomial p is said to be 9 -homogeneous 
iip = in e (p). 

Definition 6.2.10 An ordering function 9 is compatible with a monomial ordering O if, 
given any polynomial p = t x + • • • + t m ordered in descending order with respect to O, 
9(h) ^ 9(U) holds for all 1 < % ^ m. 




Similarly, we can define DeglnvLex by 




and DegRevLex by 
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Definition 6.2.11 An ordering function 9 is extendible if, given any ^-homogeneous poly- 
nomial p, any multiple upv of p by terms u and v is also ^-homogeneous. 

Remark 6.2.12 Of the ordering functions encountered so far, only the degree function, 
vali and 2 vald cg ( m ) (for any given monomial m) are extendible. 

Definition 6.2.13 Two noncommutative monomial orderings 0\ and O2 are said to be 
harmonious if (i) there exist functional decompositions Q± = {9^, 9\ 2 , . . .} and 62 = 
{#21, 6>2 2 , . . .} defining 0\ and O2 respectively; and (ii) the ordering functions 9^ and # 2l 
are identical and extendible. 

Remark 6.2.14 The noncommutative monomial orderings DegLex, DeglnvLex and De- 
gRevLex are all (pairwise) harmonious. 

6.2.2 The Noncommutative Grobner Walk Algorithm for Har- 
monious Monomial Orderings 

We present in Algorithm 19 an algorithm to perform a Grobner Walk between two har- 
monious noncommutative monomial orderings. 

Termination of Algorithm 19 depends on the termination of Algorithm 5 as used (in Al- 
gorithm 19) to compute a noncommutative Grobner Basis for the set G'. The correctness 
of Algorithm 19 is provided by the following two propositions. 

Proposition 6.2.15 G' is always a Grobner Basis for the ideaft ing(J) with respect to 
the monomial ordering O . 

Proof: Because 9 is compatible with O (by definition), the S-polynomials involving 
members of G will be in one-to-one correspondence with the S-polynomials involving 
members of G', with the same monomial being 'cancelled' in each pair of corresponding 
S-polynomials. 

Let p be an arbitrary S-polynomial involving members of G (with corresponding S- 
polynomial q involving members of G'). Because G is a Grobner Basis for J with respect 

2 Think of val dr g ( m ) as finding the value of the final variable in m (as opposed to vali finding the value 
of the first variable in m) . 

3 The ideal in^(J) is defined as follows: p G J if and only if ing(p) £ ing(J). 
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Algorithm 19 The Noncommutative Grobner Walk Algorithm for Harmonious Monomial 
Orderings 

Input: A Grobner Basis G = {gi,g2, ■ ■ ■ i9m} with respect to an admissible monomial 

ordering O with an associated functional decomposition A, where G generates an ideal 

J over a noncommutative polynomial ring 1Z = R(x\, . . . , x n ). 
Output: A Grobner Basis H = {hi, hi, ■ ■ ■ , h p } for J with respect to an admissible 

monomial ordering O 1 with an associated functional decomposition B, where O and O' 

are harmonious. 

Let 9 be the ordering function corresponding to the first ordering function of A; 
Let G' = {mg(gi)} for all gi G G; 

Compute a reduced Grobner Basis H' for G' with respect to the monomial ordering O' 
(use Algorithms 5 and 6); 
# = 0; 

for each h! G H' do 

Let Y^i=i ^i9i r i be the logged representation of h' with respect to G' (where g[ G G' 
and the ti and the r, are terms), obtained either through computing a Logged Grobner 
Basis above or by dividing h! with respect to G'\ 
H = H U {J2l =1 iiQiTi}, where m 6 (gi) = g\\ 
end for 

Reduce H with respect to O' (use Algorithm 6); 
return H; 
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to 0, p will reduce to zero using G by the series of reductions 

V Pi ^g l2 P2 ^g Ki >g la 0, 

where </j. G G for all 1 ^ j ^ a. 

Claim: q will reduce to zero using G' (and hence G' is a Grobner Basis for ing(J) with 
respect to O by Definition 3.1.8) by the series of reductions 

Q ~ > ing(g il ) Ql ~~*m g (g t2 ) ?2 —>in g (g i3 ) ' ' ' - ►in 9 (g </J ) 0, 

where ^ (3 ^ a. 

Proof of Claim: Let w be the overlap word associated to the S-polynomial p. If 
9(LM(p)) < 9{w), then because 9 is extendible it is clear that q = 0, and so the proof is 
complete. Otherwise, we must have q = ing{p), and so by the compatibility of 9 with O, 
we can use the polynomial in^gjj G G' to reduce q to give the polynomial q\. We now 
proceed by induction (if 0(LM(pi)) < 0(LM(p)) then gi = 0, . . . ), noting that the process 
will terminate because in e (p a = 0) = 0. □ 

Proposition 6.2.16 The set H constructed by the for loop of Algorithm 19 is a Grobner 
Basis for J with respect to the monomial ordering O' . 

Proof: By Definition 3.1.8, we can show that H is a Grobner Basis for J by showing 
that all S-polynomials involving members of H reduce to zero using H . Assume for a 
contradiction that an S-polynomial p involving members of H does not reduce to zero 
using H, and instead only reduces to a polynomial q ^ 0. 

As all members of H are members of the ideal J (by the way H was constructed as 
combinations of elements of G), it is clear that q is also a member of the ideal J, as all we 
have done in constructing q is to reduce a combination of two members of H with respect 
to H. It follows that the polynomial ing(g) is a member of the ideal ing( J). 

Because H' is a Grobner Basis for the ideal ing(J) with respect to O', there must be a 
polynomial hi G H' such that h' \ ing(g). Let J2l=i^i9i r i be the logged representation of 
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h! 



with respect to G' . Then it is clear that 



^hg'iTi | m (q). 



However 6 is compatible with O', so that 



1=1 



It follows that there exists a polynomial h G H dividing our polynomial q, contradicting 



6.2.3 A Worked Example 

Example 6.2.17 Let F := {x 2 + y 2 + 8, 2xy + y 2 + 5} be a basis generating an ideal J 
over the polynomial ring Q(x, y). Consider that we want to obtain the DegLex Grobner 
Basis H := {2xy + y 2 + 5, x 2 + y 2 + 8, 5y 3 — lOx + 37y, 2yx + y 2 + 5} for J from the 
DegRevLex Grobner Basis G := {2rq/ — x 2 — 3, + x 2 + 8, 5x 3 + 6?/ + 35x, 2yx — x 2 — 3} 
for J using the Grobner Walk. Utilising Algorithm 19 to do this, we initialise 9 to be the 
degree function and we proceed as follows. 

• Construct the set of initials: G' := {g[, g' 2 , g' 3 , g'4} = {—x 2 +2xy, x 2 +y 2 , 5x 3 , — x 2 + 
2yx} (these are the terms in G that have maximal degree). 

• Compute the Grobner Basis of G' with respect to the DegLex monomial ordering 
(for simplicity, we will not provide details of those S-polynomials that reduce to zero 



our initial assumption. 



□ 
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or can be ignored due to Buchberger's Second Criterion). 

S-pol(l, g' v l,g' 2 ) = (-x 2 + 2xy) - (-l)(x 2 + y 2 ) 

= 2xy + y 2 =■ g' 5 ; 

S-pol(l, g[, l,g' 4 ) = (-l)(-x 2 + 2xy) - (-l)(-x 2 + 2yx) 
= —2xy + 2yx 
-y B ~2xy + tyx + (2xy + y 2 ) 

= 2yx + y 2 =■ g' 6 ; 

S-po\{y,g[,l,g' 6 ) = 2y{-x 2 + 2xy) - (-l)(2yx + y 2 )x 

= 4:yxy + y 2 x 

~V B ^yxy + y 2 x - 2y(2xy + y 2 ) 

= y 2 x - 2y 3 

-^ g > 6 y 2 x - 2y 3 - -y(2yx + y 2 ) 

5 o , 
= - 2 y 3 =--9r 

After g'rj is added to the current basis, all S-polynomials now reduce to zero, leaving 
the Grobner Basis G' = {g[, g 2 , g' a , gf A , g' 5 , g' 6 , g' 7 } = {-x 2 +2xy, x 2 +y 2 , 5x 3 , -x 2 + 
2yx, 2xy + y 2 , 2yx + y 2 , — |y 3 } for in (J) with respect to O' . 

Applying Algorithm 6 to G', we can remove g[, g' 2 and g' 3 from G' (because their 
lead monomials are all multiplies of LM(^)); we must multiply g' 4 , g' 5 , g' & and g' 7 by 
— 1, |, | and — | respectively (to obtain unit lead coefficients); and the polynomial 
g' 4 can (then) be further reduced as follows. 

94 = x 2 - 2yx 

2 ( 1 2 

->g' a x - 2 y % + 2 ( v x + 2 y 

= x 2 + y 2 . 

This leaves us with the unique reduced Grobner Basis H' := {h[, h' 2 , h' 3 , h' 4 } 
{x 2 + y 2 , xy + \y 2 , + |?/ 2 , ?/ 3 } for me(J) with respect to O'. 
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We must now express the four elements of H' in terms of members of G' . 

K = x 2 + y 2 = g 2 ; 
K = xy + -y 2 = -(g[ + g' 2 ) (from the S-polynomial) ; 

h' 3 = yx + ^y 2 = i(-0i + 04 + (sl + 02)) 

K = y 3 = -^(^2y(g[) + (g' 2 + g' 4 )x -2y(g[ + g 2 ) -^y(g' 2 + g' 4 )^j 



Lifting to the full polynomials, we obtain the Grobner Basis H := {hi, h?, hs, /14} 
as follows. 



hi = g 2 



x 2 + y 2 + 8; 
2^1+^2) 

-(-x 2 + 2xy - 3 + x 2 + y 2 



xy + ^y 2 + 2? 

\i.92 + 9i) 

^(x 2 + y 2 + 8 - x 2 + 2yx - 3) 

1 2 5 
^+2^ +2 ; 

2/5 1 
-- [92X - -yg 2 + g±x - -yg 4 

~\{^ + V 2x + 8x - ^yx 2 - ^y 3 - 20y 

Q 9 X 9 9 3 

—X + 2?/X — 3x + -l/X -!/!+-!/ 
3 n 37 

y < — 2x H y. 



The set if does not reduce any further, so we return the output DegLex Grobner 

\y 2 + §, yx + \y 2 + §, y 3 - 2x + f 



Basis {x 2 + y 2 + 8, xy + |y 2 + |, yx + \y 2 + §, - 2x + ^y} for J, a basis 
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that is equivalent to the DegLex Grobner Basis given for J at the beginning of this 
example. 

6.2.4 The Noncommutative Involutive Walk Algorithm for Har- 
monious Monomial Orderings 

We present in Algorithm 20 an algorithm to perform an Involutive Walk between two 
harmonious noncommutative monomial orderings. 

Algorithm 20 The Noncommutative Involutive Walk Algorithm for Harmonious Mono- 
mial Orderings 

Input: An Involutive Basis G = {g±, g2, ■ ■ ■ , g m } with respect to an involutive divi- 
sion / and an admissible monomial ordering O with an associated functional decom- 
position A, where G generates an ideal J over a noncommutative polynomial ring 
TZ = R(x 1 , . . .,x n ). 

Output: An Involutive Basis H = {hi, /i 2 , . . . , h p } for J with respect to / and an admis- 
sible monomial ordering O' with an associated functional decomposition B, where O 
and O' are harmonious. 

Let 9 be the ordering function corresponding to the first ordering function of A; 
Let G' = {in e ((yfj)} for all ^ G G; 

Compute an Involutive Basis H' for G' with respect to / and the monomial ordering 
O' (use Algorithm 12); 
# = 0; 

for each h! G H' do 

Let YH=i ^i9i r i be the logged representation of h' with respect to G' (where g\ G 
G' and the and the are terms), obtained either through computing a Logged 
Involutive Basis above or by involutively dividing hi with respect to G'\ 
H = H U {ELi ZiQiTi}, where in^) = g[\ 

end for 

return H; 



Termination of Algorithm 20 depends on the termination of Algorithm 12 as used (in Al- 
gorithm 20) to compute a noncommutative Involutive Basis for the set G' . The correctness 
of Algorithm 20 is provided by the following two propositions. 
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Proposition 6.2.18 G' is always an Involutive Basis for the ideal ing( J) with respect to 
I and the monomial ordering O. 

Proof: Let p := ugv be an arbitrary multiple of a polynomial g G G by terms u and v. 
Because G is an Involutive Basis for J with respect to / and O, p will involutively reduce 
to zero using G by the series of involutive reductions 

where G G for all 1 ^ j ' ^ a. 

Claim: The polynomial q := uing(g)v will involutively reduce to zero using G' (and hence 
G' is an Involutive Basis for in e (J) with respect to I and O by Definition 5.2.7) by the 
series of involutive reductions 

7 1119(9^) 1 in s (3, 2 ) / ine(9i 3 ) / in fl (g i/3 ) ' 

where 1 ^ /3 ^ a. 

Proof of Claim: Because 9 is extendible, it is clear that q = m.g(p). Further, because 9 
is compatible with O (by definition), the multiplicative variables of G and G' with respect 
to / will be identical, and so it follows that because the polynomial g^ G G was used to 
involutively reduce p to give the polynomial p\, then the polynomial in^gfjj G G' can be 
used to involutively reduce q to give the polynomial qi. 

If 9(LM(pi)) < 9(LM(p)), then because 9 is extendible it is clear that q± = 0, and so 
the proof is complete. Otherwise, we must have qi = ing(pi), and so (again) by the 
compatibility of 9 with O, we can use the polynomial ing(gi 2 ) G G' to involutively reduce 
qi to give the polynomial q 2 . We now proceed by induction (if ^(LM(p 2 )) < 9(LM(pi)) 
then q 2 — 0, . . . ), noting that the process will terminate because in (p Q = 0) = 0. □ 

Proposition 6.2.19 The set H constructed by the for loop of Algorithm 20 is an Invo- 
lutive Basis for J with respect to I and the monomial ordering O' . 

Proof: By Definition 5.2.7, we can show that H is an Involutive Basis for J by showing 
that any multiple upv of any polynomial p G H by any terms u and v involutively reduces 
to zero using H. Assume for a contradiction that such a multiple does not involutively 
reduce to zero using H, and instead only involutively reduces to a polynomial q ^ 0. 
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As all members of H are members of the ideal J (by the way H was constructed as 
combinations of elements of G), it is clear that q is also a member of the ideal J, as all 
we have done in constructing q is to reduce a multiple of a polynomial in H with respect 
to H. It follows that the polynomial ixio{q) is a member of the ideal ing(J). 

Because H' is an Involutive Basis for the ideal in#(J) with respect to / and O', there must 
be a polynomial h! G H' such that h' \i ine(g). Let YH=i ^i9i r i be the logged representation 
of h! with respect to G'. Then it is clear that 

j 

^Ug'fi \i in (g). 

i=l 

However 9 is compatible with O' (in particular the multiplicative variables for H' and H 
with respect to / and O' will be identical), so that 

j 

y^Ji9irj \i q. 

i=l 

It follows that there exists a polynomial h G H involutively dividing our polynomial q, 
contradicting our initial assumption. □ 

6.2.5 A Worked Example 

Example 6.2.20 Let F := {x 2 +y 2 + 8, 2xy+y 2 + 5} be a basis generating an ideal J over 
the polynomial ring Q(x,y). Consider that we want to obtain the DegRevLex Involutive 
Basis H := {2xy — x 2 — 3, y 2 + x 2 + 8, 5x 3 + 6y + 35x, 5yx 2 + 3y + lOx, 2yx — x 2 — 3} 
for J from the DegLex Involutive Basis G := {2xy + y 2 + 5, x 2 + y 2 + 8, 5y 3 — lOx + 
37y, 5xy 2 + 5x — 6y, 2yx + y 2 + 5} for J using the Involutive Walk, where H and G are 
both Involutive Bases with respect to the left division <l. Utilising Algorithm 20 to do 
this, we initialise 8 to be the degree function and we proceed as follows. 

• Construct the set of initials: 

G' := {g[, g' 2 , g' 3 , g' 4 , g' 5 } = {y 2 + 2xy, y 2 + x 2 , 5y 3 , 5xy 2 , y 2 + 2yx} 

(these are the terms in G that have maximal degree). 

• Compute the Involutive Basis of G' with respect to < and the DegRevLex monomial 
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ordering. Step 1: autoreduce the set G' . 



g[ = y 2 + 2xy 



y 2 + 2xy - (y 2 + x 2 ) 
= 2xy - x 2 =: g' e ; 

c = (g'\{ 3 ;})u{ 5 ;} ; 

g' 2 = y 2 + 

y 2 + x 2 - {y 2 + 2yx) 

= -2yx + x 2 =: g' 7 ; 
G' = (G>\{gi})U{g>y, 
93 = % 3 

-10y 2 x 

> , — 10?/ 2 x — 5y(— 2yx + x 2 ) 

-5yx 2 =: g-g; 
G" = (G" \ {^}) U {g' 8 }; 
g' A = 5xy 2 

— ^ 5a; Z/ 2 - 5:r (y 2 + 
= — lOxyx 

> , — lOxyx — 5x(— 2?/x + x 2 ) 

97 

-5x 3 =: ^; 
G' = (G'\{g',})U{g>} ; 

g' 5 = y 2 + 2 ?/x 



< 9' 7 



y + 2yx + (—2yx + x 
2/ 2 + ^ =: #i ; 



G' = (G f \ {g' 5 }) U {g[ }. 

Step 2: process the prolongations of the set G' = {g' e , g' 7 , g' 8 , g' g , g[ }- Because all ten 
of these prolongations involutively reduce to zero using G' , we are left with the Invo- 
lutive Basis H' := {h[, h' 2 , h' 3 , h' A , h' 5 } = {2xy — x 2 , —2yx + x 2 , —5yx 2 , — 5x 3 , y 2 + 
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x 2 } for ing(J) with respect to < and 0'. 

We must now express the five elements of H' in terms of members of G' . 

h[ = 2xy — x 2 = g[ — g' 2 (from autoreduction); 
h' 2 = -2yx + x 2 = g' 2 -g' 5 ; 

K = -5yx 2 = g' 3 - 5yg' 5 - 5y(g 2 - g' 5 ) 

h' A = -5x 3 = g' 4 - 5x5-5 - - g' 5 ) 

= -5x9*2 + 9*i 
h' 5 = y 2 + x 2 = g' 5 + (g' 2 -g' 5 ) 

= g'2- 

Lifting to the full polynomials, we obtain the Involutive Basis H := {h±, h 2 , h 3 , h^, h 5 } 
as follows. 

hi = gi- 92 

= (y 2 + 2xy + 5) - (y 2 + x 2 + 8) 
= 2xy — x — 3; 

h 2 = 92- 95 

= (y 2 + x 2 + 8) - (y 2 + 2yx + 5) 
= — 2yx + x 2 + 3; 

^3 = -5V92 + 93 

= -5y(y 2 + x 2 + 8) + {5y 3 + 37y - lOx) 

= —5yx 2 — 3y — lOx; 

hi = -5xg 2 + 54 

= —5x(y 2 + x 2 + 8) + (5xy 2 — 6?/ + 5x) 

= — 5x 3 — 6y — 35x; 

h 5 = 92 

= y 2 + x 2 + 8. 



We can now return the output DegRevLex Involutive Basis H = {2xy — x 2 — 
3, — 2yx + x 2 + 3, —5yx 2 — 3y — lOx, — 5x 3 — 6y — 35x, y 2 + x 2 + 8} for J with 
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respect to <3, a basis that is equivalent to the DegRevLex Involutive Basis given for 
J at the beginning of this example. 

6.2.6 Noncommutative Walks Between Any Two Monomial Or- 
derings? 

Thus far, we have only been able to define a noncommutative walk between two harmo- 
nious monomial orderings, where we recall that the first ordering functions of the func- 
tional decompositions of the two monomial orderings must be identical and extendible. 
For walks between two arbitrary monomial orderings, the first ordering functions need 
not be identical any more, but it is clear that they must still be extendible, so that (in an 
algorithm to perform such a walk) each basis G' is a Grobner Basis for each ideal ing(J) 
(compare with the proofs of Propositions 6.2.15 and 6.2.18). This condition will also ap- 
ply to any 'intermediate' monomial ordering we will encounter during the walk, but the 
challenge will be in how to define these intermediate orderings, so that we generalise the 
commutative concept of choosing a weight vector on the line segment between two 
weight vectors u>i and r. 

Open Question 4 Is it possible to perform a noncommutative walk between two admis- 
sible and extendible monomial orderings that are not harmonious? 



Chapter 7 



Conclusions 



7.1 Current State of Play 

The goal of this thesis was to combine the theories of noncommutative Grobner Bases 
and commutative Involutive Bases to give a theory of noncommutative Involutive Bases. 
To accomplish this, we started by surveying the background theory in Chapters 1 to 4, 
focusing our account on the various algorithms associated with the theory. In particular, 
we mentioned several improvements to the standard algorithms, including how to compute 
commutative Involutive Bases by homogeneous methods, which required the introduction 
of a new property (extendibility) of commutative involutive divisions. 

The theory of noncommutative Involutive Bases was introduced in Chapter 5, where 
we described how to perform noncommutative involutive reduction (Definition 5.1.1 and 
Algorithm 10); introduced the notion of a noncommutative involutive division (Definition 
5.1.6); described what is meant by a noncommutative Involutive Basis (Definition 5.2.7); 
and gave an algorithm to compute noncommutative Involutive Bases (Algorithm 12). 
Several noncommutative involutive divisions were also defined, each of which was shown 
to satisfy certain properties (such as continuity) allowing the deductions that all Locally 
Involutive Bases are Involutive Bases; and that all Involutive Bases are Grobner Bases. 

To finish, we partially generalised the theory of the Grobner Walk to the noncommuta- 
tive case in Chapter 6, yielding both Grobner and Involutive Walks between harmonious 
noncommutative monomial orderings. 
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7.2 Future Directions 

As well as answering a few questions, the work in this thesis gives rise to a number of 
new questions we would like the answers to. Some of these questions have already been 
posed as 'Open Questions' in previous chapters; we summarise below the content of these 
questions. 

• Regarding the procedure outlined in Definition 4.5.1 for computing an Involutive 
Basis for a non-homogeneous basis by homogeneous methods, if the set G returned 
by the procedure is not autoreduced, under what circumstances does autoreducing 
G result in obtaining a set that is an Involutive Basis for the ideal generated by the 
input basis F? 

• Apart from the empty, left and right divisions, are there any other global noncom- 
mutative involutive divisions of the following types: 

(a) strong and continuous; 

(b) weak, continuous and Grobner? 

• Are there any conclusive noncommutative involutive divisions that are also contin- 
uous and either strong or Grobner? 

• Is it possible to perform a noncommutative walk between two admissible and ex- 
tendible monomial orderings that are not harmonious? 

In addition to seeking answers to the above questions, there are a number of other di- 
rections we could take. One area to explore would be the development of the algorithms 
introduced in this thesis. For example, can the improvements made to the involutive 
algorithms in the commutative case, such as the a priori detection of prolongations that 
involutively reduce to zero (see [23]), be applied to the noncommutative case? Also, can we 
develop multiple-object versions of our algorithms, so that (for example) noncommutative 
Involutive Bases for path algebras can be computed? 

Implementations of any new or improved algorithms would clearly build upon the code 
presented in Appendix B. We could also expand this code by implementing logged versions 
of our algorithms; implementing efficient methods for performing involutive reduction (as 
seen for example in Section 5.8.1); and implementing the algorithms from Chapter 6 



CHAPTER 7. CONCLUSIONS 



193 



for performing noncommutative walks. These improved algorithms and implementations 
could then be used (perhaps) to help judge the relative efficiency and complexity of the 
involutive methods versus the Grobner methods. 

Applications 

As every noncommutative Involutive Basis is a noncommutative Grobner Basis (at least 
for the involutive divisions defined in this thesis), applications for noncommutative Invo- 
lutive Bases will mirror those for noncommutative Grobner Bases. Some areas in which 
noncommutative Grobner Bases have already been used include operator theory; systems 
engineering and linear control theory [32] . Other areas in noncommutative algebra which 
could also benefit from the theory introduced in this thesis include term rewriting; Petri 
nets; linear logic; quantum groups and coherence problems. 

Further applications may come if we can extend our algorithms to the multiple-object 
case. It would be interesting (for example) to compare a multiple-object algorithm to a 
(standard) one-object algorithm in cases where an Involutive Basis for a multiple-object 
example can be computed using the one-object algorithm by adding some extra relations. 
This would tie in nicely with the existing comparison between the commutative and 
noncommutative versions of the Grobner Basis algorithm, where it has been noticed that 
although commutative examples can be computed using the noncommutative algorithm, 
taking this route may in fact be less efficient than when using the commutative algorithm 
to do the same computation. 



Appendix A 



Proof of Propositions 5.5.31 and 
5.5.32 



A.l Proposition 5.5.31 

(Proposition 5.5.31) The two-sided left overlap division W is continuous. 

Proof: Let w be an arbitrary fixed monomial; let U be any set of monomials; and 
consider any sequence (u\, «2, • • • , Uk) of monomials from U (ui G f/ for all 1 ^ i ^ A;), 
each of which is a conventional divisor of w (so that w = iiUiTi for all 1 ^ % ^ k, where the 
ii and the r, are monomials). For all 1 ^ % < k, suppose that the monomial u i+ i satisfies 
exactly one of the conditions (a) and (b) from Definition 5.4.2 (where multiplicative 
variables are taken with respect to W over the set U). To show that W is continuous, we 
must show that no two pairs (£i,ri) and (£j,Tj) are the same, where i ^ j. 

Assume to the contrary that there are at least two identical pairs in the sequence 

((h,rx), (£ 2 ,r 2 ),...,(£ k ,r k )), 

so that we can choose two separate pairs (ia^a) and r&) from this sequence such that 
(£a,r a ) = (h,fb) and all the pairs (£ c , r c ) (for a ^ c < b) are different. We will now show 
that such a sequence ((£ a ,r a ), • • • , (4, r f>)) cannot exist. 

To begin with, notice that for each monomial Ui + \ in the sequence (u\, . . . , Uk) of mono- 
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mials (1 ^ % < k), if Ui + \ involutively divides a left prolongation of the monomial Ui (so 
that Ui + i |w (Suffix(£j, l))ui), then must be a prefix of this prolongation; if u i+ i invo- 
lutively divides a right prolongation of the monomial Ui (so that |w Wi(Prefix(rj, 1))), 
then must be a suffix of this prolongation. This is because in all other cases, Ui+i 
is either equal to itj, in which case Ui+i cannot involutively divide the (left or right) pro- 
longation of Ui trivially; or tt i+1 is a subword of in which case ttj+i cannot involutively 
divide the (left or right) prolongation of itj by definition of W. 

Following on from the above, we can deduce that Uf, is either a suffix or a prefix of a 
prolongation of it&_i, leaving the following four cases, where x e b _ l = Suffix(£(,„i, 1) and 
= Prefix(r b _i, 1). 

Case A (deg(-Uf,_i) ^ deg(u b )) Case B (deg(w{,_i) + 1 = deg(«b)) 

t i 

x b-l Ub-i x b-l Ub-i 



u b u b 
Case C (deg(u fe „i) ^ deg(n 6 )) Case D (deg(n b _i) + 1 = deg(u b )) 

Ub-l x \-\ Ub-l x l-i 



u b u b 

These four cases can all originate from one of the following two cases (starting with a left 
prolongation or a right prolongation), where x e a = Suffix(£ a , 1) and x r a = Prefix(r a , 1). 

Case 1 Case 2 

™£ r 

X„ U n U n n 



So there are eight cases to deal with in total, namely cases 1-A, 1-B, 1-C, 1-D, 2-A, 2-B, 
2-C and 2-D. 

We can immediately rule out cases 1-C and 2-A because we can show that a particular 
variable is both multiplicative and nonmultiplicative for monomial u a = Ub with respect 
to U, a contradiction. In case 1-C, the variable is x e a : it has to be left nonmultiplicative 
to provide a left prolongation for u a , and left multiplicative so that Ub is an involutive 
divisor of the right prolongation of Ub-i, in case 2-A, the variable is x r a : it has to be 
right nonmultiplicative to provide a right prolongation for u a , and right multiplicative 
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so that Ub is an involutive divisor of the left prolongation of We illustrate this in 

the following diagrams by using a tick to denote a multiplicative variable and a cross to 
denote a nonmultiplicative variable. 



Case 1-C Case 2-A 

X X 

r I 
U b _i x b-l X b~l u b-l 

x i u b = u a u b = u a x r a 

/ / 



For all the remaining cases, let us now consider how we may construct a sequence 
((£a,r a ), (h,rb) = (£ a ,r a ))- Because we know that each u c +i is a prefix (or suf- 
fix) of a left (or right) prolongation of u c (where a ^ c < b), it is clear that at some stage 
during the sequence, some u c +i must be a proper suffix (or prefix) of a prolongation, or 
else the degrees of the monomials in the sequence (u a , . . .) will strictly increase, meaning 
that we can never encounter the same (£, r) pair twice. Further, the direction in which 
prolongations are taken must change some time during the sequence, or else the degrees 
of the monomials in one of the sequences (£ a , . . .) and (r a , . . .) will strictly decrease, again 
meaning that we can never encounter the same (£, r) pair twice. 

A change in direction can only occur if -u c+1 is equal to a prolongation of u c , as illustrated 
below. 



Left Prolongation Turn 



u r 



X 



Uc+1 



X 



c+1 



X 



Right Prolongation Turn 



u r 



■r 



x 



X 



c+1 



Uc+1 



X 



However, if no proper prefixes or suffixes are taken during the sequence, it is clear that 
making left or right prolongation turns will not affect the fact that the degrees of the 
monomials in the sequence (u a , . . .) will strictly increase, once again meaning that we can 
never encounter the same (£, r) pair twice. It follows that our only course of action is to 
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make a (left or right) prolongation turn after a proper prefix or a suffix of a prolongation 
has been taken. We shall call such prolongation turns prefix or suffix turns. 



Prefix Turn 



Suffix Turn 



■I, 



X 



X 



c+1 



U c +1 



U c+ 2 



X 



c+2 



X 



c+2 



X 



c+2 



.r 



c+2 



U c +l 



U c+ 2 



X 



c+1 



X 



X 



Claim: It is impossible to perform a prefix turn when W has been used to assign multi- 
plicative variables. 

Proof of Claim: It is sufficient to show that W cannot assign multiplicative variables 
to U as follows: 

x[ i M^(u c , U); x r c+2 e M^(u c+ll U); x r c+2 £ M^(u c+2l U). (A.l) 

Consider how Algorithm 16 can assign the variable x r c+2 to be right nonmultiplicative for 
monomial u c+ 2- As things are set up in the digram for the prefix turn, the only possibility 
is that it is assigned due to the shown overlap between u c and u c+ 2- But this assumes 
that these two monomials actually overlap (which won't be the case if deg(w c+1 ) = 1); 
that u c is greater than or equal to u c+ 2 with respect to the DegRevLex monomial ordering 
(so any overlap assigns a nonmultiplicative variable to u c+ 2, not to u c ); and that, by the 
time we come to consider the prefix overlap between u c and u c+ 2 in Algorithm 16, the 
variable x c must be left multiplicative for monomial u c . But this final condition ensures 
that Algorithm 16 will terminate with x e c being left multiplicative for u c , contradicting 
Equation (A.l). We therefore conclude that the variable x r c+2 must be assigned right 
nonmultiplicative for monomial u c+ 2 via some other overlap. 

There are three possibilities for this overlap: (i) there exists a monomial Ud&U such that 
u c+ 2 is a prefix of u^, (ii) there exists a monomial Ud such that u c+ 2 is a subword of 
Ud] and (iii) there exists a monomial UdEU such that some prefix of Ud is equal to some 
suffix of u c+2 . 
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x 



X 



Overlap (i) 



c+l u c+l 



U c +2 



X c+2 

/ 
X c+2 

X 



Ud 



Overlap (ii) 



x 



c+l 



X 



Uc+l 



U c +2 



X c+2 

/ 

vr 
X c+2 

X 



X 



c+l 



X 



Overlap (iii) 



U c +1 



X 



c+2 



c+2 

X 



In cases (i) and (ii), the overlap shown between w c+1 and Ud ensures that Algorithm 16 
will always assign x r c+2 to be right nonmultiplicative for monomial u c+ i, contradicting 
Equation (A.l). This leaves case (iii), which we break down into two further subcases, 
dependent upon whether u c+ \ is a prefix of Ud or not. If u c+ \ is a prefix of ua, then 
Algorithm 16 will again assign x r c+2 to be right nonmultiplicative for u c+ i, contradicting 
Equation (A.l). Otherwise, assuming that the shown overlap between u c+2 and Ud assigns 
x r c+ 2 to be right nonmultiplicative for m c+2 (so that the variable immediately to the left 
of monomial Ud must be left multiplicative), we must again come to the conclusion that 
variable x r c+2 is right nonmultiplicative for u c+ \ (due to the overlap between u c+ \ and Ud), 
once again contradicting Equation (A.l). 

Technical Point: It is possible that several left prolongations may occur between the 
monomials u c+ \ and u c+ 2 shown in the diagram for the prefix turn, but, as long as no 
proper prefixes are taken during this sequence (in which case we potentially start another 
prefix turn), we can apply the same proof as above (replacing c + 2 by c + c') to show 
that we cannot perform an extended prefix turn (as shown below) with respect to W. 
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Extended Prefix Turn 



X 

I r 

X c+1 U c+ \ X c+c' 

X / 



X 



X 

u c+c' X c+c' 

X 

□ 

Having ruled out prefix turns, we can now eliminate cases 1-D, 2-C and 2-D because 
they require (i) a proper prefix to be taken during the sequence (allowing deg(r fc _ 1 ) = 
deg(rfe) + 1); and (ii) the final prolongation to be a right prolongation, ensuring that a 
turn has to follow the proper prefix, and so an (extended) prefix turn is required. 

For Cases 1-A and 1-B, we start by taking a left prolongation, which means that some- 
where during the sequence a proper suffix must be taken. To do this, it follows that we 
must change the direction that prolongations are taken. Knowing that prefix turns are 
ruled out, we must therefore turn by using a left prolongation turn, which will happen 
after a finite number a' ^ 1 of left prolongations. 
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u a 



X 



a+l 



U a +1 



X 



X 



X 

U a +a' X a+a' 

X 

Considering how Algorithm 16 assigns the variable x r a+a , to be right nonmultiplicative for 
monomial u a+a ', there are three possibilities: (i) there exists a monomial Ud E U such that 
u a+a i is a prefix of Ud, (ii) there exists a monomial Ud EU such that u a+a > is a subword of 
Ud] and (iii) there exists a monomial Ud G f/ such that some prefix of Ud is equal to some 
suffix of u a +a'- In each of these cases, there will be an overlap between u a and Ud that will 
ensure that Algorithm 16 also assigns the variable x r a+a , to be right nonmultiplicative for 
monomial u a . This rules out Case 1-A, as variable x r a+a , must be right multiplicative for 
monomial u = u a in order to perform the final step of Case 1-A. 

For Case 1-B, we must now make an (extended) suffix turn as we need to finish the 
sequence prolongating to the left. But, once we have done this, we must subsequently 
take a proper prefix in order to ensure that it&_i is a suffix of u a = Uf,. Pictorially, here 
is one way of accomplishing this, where we note that any number of prolongations may 
occur between any of the shown steps. 

V 

u a+a' X a+a' 

X 

/ ' X 

X 

U a +a" 

/ 

Once we have reached the stage where we are working with a suffix of u a , we may continue 
prolongating to the left until we form the monomial u& = u a , seemingly providing a 
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counterexample to the proposition (we have managed to construct the same (£, r) pair 
twice). However, starting with the monomial labelled u a+a " in the above diagram, if we 
follow the sequence from u a + a " via left prolongations to Ub = u a , and then continue with 
the same sequence as we started off with, we notice that by the time we encounter the 
monomial u a+a > again, an extended prefix turn has been made, in effect meaning that the 
first prolongation of u a we took right at the start of the sequence was invalid. 



x 



U a +a" 



'6-1 



Ub-1 



X' 



U b = U a 



X 



a+1 



U a +1 



X 



X 



X 



a+a' 



X 



This leaves Case 2-B. Here we start by taking a right prolongation, meaning that some- 
where during the sequence a proper prefix must be taken. To do this, it follows that we 
must change the direction that prolongations are taken. There are two ways of doing this: 
(i) by using an (extended) suffix turn; (ii) by using a right prolongation turn. 

In case (i), after performing the (extended) suffix turn, we need to take a proper prefix 
so that the next monomial (say u c ) in the sequence is a suffix of u a ; we then continue 
by taking left prolongations until we form the monomial Uj, = u a . This provides an 
apparent counterexample to the proposition, but as for Case 1-B above, by taking the 
right prolongation of u a the second time around, we perform an extended prefix turn, 
rendering the first right prolongation of u a invalid. 
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Case (i) 



X 



X 



6-1 



u b = u a 



In case (ii) , after we make a right prolongation turn (which may itself occur after a finite 
number of right prolongations), we may now take the required proper prefix. But as we 
are then required to take a proper suffix (in order to ensure that we finish the sequence 
taking a left prolongation), we need to make a turn. But as this would entail making an 
(extended) prefix turn, we conclude that case (ii) is also invalid. 



An Example of Case (ii) 



X 

£ 

X a+1 u a+l 



X a+2 U a+ 2 



X / 
U a +3 

X 



As we have now accounted for all eight possible sequences, we can conclude that W is 
continuous. □ 
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A. 2 Proposition 5.5.32 

(Proposition 5.5.32) The two-sided left overlap division W is a Grobner involutive 
division. 

Proof: We are required to show that if Algorithm 12 terminates with W and some 
arbitrary admissible monomial ordering O as input, then the Locally Involutive Basis 
G it returns is a noncommutative Grobner Basis. By Definition 3.1.8, we can do this 
by showing that all S-polynomials involving elements of G conventionally reduce to zero 
using G. 

Assume that G = {gi, . . . , g p } is sorted (by lead monomial) with respect to the DegRevLex 
monomial ordering (greatest first), and let U = {ui, . . . , u p } := {LM(gi), . . . , LM(g p )} be 
the set of leading monomials. Let T be the table obtained by applying Algorithm 16 to 
U. Because G is a Locally Involutive Basis, every zero entry T(uj,xJ) (r e {L,R}) in 
the table corresponds to a prolongation giXj or Xjgi that involutively reduces to zero. 

Let S be the set of S-polynomials involving elements of G, where the t-th entry of S 
(1 ^ t ^ \S\) is the S-polynomial 

s t = c t £ t gir t - c' t £' t gjr' t , 

with itU{r t = £' t Ujr' t being the overlap word of the S-polynomial. We will prove that every 
S-polynomial in S conventionally reduces to zero using G. 

Recall (from Definition 3.1.2) that each S-polynomial in S corresponds to a particular type 
of overlap — 'prefix', 'subword' or 'suffix'. For the purposes of this proof, let us now split 
the subword overlaps into three further types — 'left', 'middle' and 'right', corresponding 
to the cases where a monomial rri2 is a prefix, proper subword and suffix of a monomial 
m\. 

Left Middle Right 

mi mi mi 

m 2 m 2 m 2 

This classification provides us with five cases to deal with in total, which we shall process 
in the following order: right, middle, left, prefix, suffix. 
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(1) Consider an arbitrary entry SfGS f (l^t^|S'|) corresponding to a right overlap 
where the monomial Uj is a suffix of the monomial Ui- This means that s t = Ctg% — c' t £' t gj 
for some g iy gj G G, with overlap word Ui = £' t Uj. Let Ui = x ix . . . x ia ; let Uj = Xj l . . . Xj p ; 
and let D — a — (3. 



U 3 



'D + l d " L D+1 



Because Uj is a suffix of Ui, it follows that T(uj,xf D ) = 0. This gives rise to the prolon- 
gation Xi D gj of gj. But we know that all prolongations involutively reduce to zero (G is 
a Locally Involutive Basis), so Algorithm 10 must find a monomial Uk = x^ ■ ■ ■ x^ G U 
such that Uk involutively divides Xi D uj. Assuming that xu = Xi K , we can deduce that 
any candidate for w fc must be a suffix of x io Uj (otherwise T(uk,xf K+i ) = because of the 
overlap between and But if is a suffix of Xi D Uj, then we must have u^ = Xi D Uj 
(otherwise T(uk, x f a _ ) — again because of the overlap between Ui and Uk). We have 
therefore shown that there exists a monomial u^ = x^ ■ ■ ■ x^ G U such that Uk is a suffix 
of Ui and 7 = j3 + 1 . 



h 3\ X J2 3/3 — 1 J/3 



■Efc-i ^A;9 *^feq 



In the case D — 1, it is clear that Uk = Ui, and so the first step in the involutive reduction 
of the prolongation x^gj of gj is to take away the multiple (^r)gi of g\ from x^gj to leave 
the polynomial x^gj — 

(f)gi = -(p-)s*- But as we know that all prolongations involutively 
reduce to zero, we can conclude that the S-polynomial s t conventionally reduces to zero. 

For the case D > 1, we can use the monomial together with Buchberger's Second 
Criterion to simplify our goal of showing that the S-polynomial s t reduces to zero. Notice 
that the monomial Uk is a subword of the overlap word ii, associated to s t , and so in order 
to show that s t reduces to zero, all we have to do is to show that the two S-polynomials 

Su c u gi Cyix^Xi^ . . . Xi D1 ^)gk 

and 
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reduce to zero (1 ^ u, v ^ \S\). But s v is an S-polynomial corresponding to a right overlap 
of type D — 1 (because 7 — (3 = 1), and so s v reduces to zero. It remains to show that the 
S-polynomial s u reduces to zero. But we can do this by using exactly the same argument 
as above — we can show that there exists a monomial G U such that u v 

is a suffix of Ui and 5 = 7 + 1, and we can deduce that the S-polynomial s u reduces to 
zero (and hence s t reduces to 0) if the S-polynomial 

reduces to zero (1 ^ w ^ 151). By induction, there is a sequence {u qD , u gD1 , . . . , u q2 } of 
monomials increasing uniformly in degree, so that s t reduces to zero if the S-polynomial 

reduces to zero (1 ^ 77 ^ \S\). 



x i\ x i2 Xi D-l Xi D Xi D + l Xi D+2 Xi a — 1 Xi ct 

Uj = 

x 31 x 32 J/3 — 1 30 

U qD = U k = 

Ug D1 U-x — 

Uq 2 = 

But s v is always an S-polynomial corresponding to a right overlap of type D — 1, and so 
s v reduces to zero — meaning we can conclude that St reduces to zero as well. 

(2) Consider an arbitrary entry St G S (1 ^ t ^ \S\) corresponding to a middle overlap 
where the monomial Uj is a proper subword of the monomial u^. This means that s t = 
c t9i — c t^'t9j r t f° r some 9i, 9j ^ G, with overlap word u.; = i' t Ujr' t . Let u { = x i± . . . x ia \ let 
u j = x ji • • • x 3ft'-> an d choose D such that 



Xi l Xi D-/3 Xi D-0 + l Xi D-0+2 Xi D-l Xi D Xi D + l Xi a 

Uj = 

x 3\ x 32 30 — 1 30 

Because Uj is a proper subword of u i: it follows that T{uj,xf D+ ^) = 0. This gives rise to 
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the prolongation gjXi D+1 of gj. But we know that all prolongations involutively reduce 
to zero, so there must exist a monomial Uk = x^ ■ ■ ■ x^ € U such that Uk involutively 
divides UjXi D+1 . Assuming that xu = Xi K , any candidate for Uk must be a suffix of UjXi D+1 
(otherwise T(uk,xf K+1 ) = because of the overlap between Ui and Uk). Unlike part (1) 
however, we cannot determine the degree of Uk (so that 1 ^ 7 ^ (3+ 1); we shall illustrate 
this in the following diagram by using a squiggly line to indicate that the monomial Uk 
can begin anywhere (or nowhere if Uk = %i D+1 ) on the squiggly line. 



Uk 



*D-/3 Xi D-0+l Xi D-f3+2 Xi D-l Xi D Xi D + l 



L 3\ X J2 3/3 — 1 J/3 



We can now use the monomial Uk together with Buchberger's Second Criterion to simplify 
our goal of showing that the S-polynomial St reduces to zero. Notice that the monomial 
Uk is a subword of the overlap word associated to St, and so in order to show that St 
reduces to zero, all we have to do is to show that the two S-polynomials 

Su = c u9i ~ C ui X h X i2 ■ ■ ■ x iD+l-~i)9k{Xi D+2 ■ ■ ■ %i a ) 

and 1 

&v C v {Xj 1 . . . Xi D+1 — ^)Qk C v QjXi D+1 

reduce to zero (1 ^ u, v ^ \S\). 

For the S-polynomial s v , there are two cases to consider: 7 = 1, and 7 > 1. In the 
former case, because (as placed in Uj) the monomials Uj and Uk do not overlap, we can use 
Buchberger's First Criterion to say that the 'S-polynomial' s v reduces to zero (for further 
explanation, see the paragraph at the beginning of Section 3.4.1). In the latter case, 
note that Uk is the only involutive divisor of the prolongation UjXi D+1 , as the existence 
of any suffix of UjXi D+1 of higher degree than Uk in U will contradict the fact that Uk is 
an involutive divisor of UjXi D+1 ; and the existence of Uk in U ensures that any suffix of 
UjXi D+1 that exists in U with a lower degree than Uk will not be an involutive divisor of 
UjXi D+1 . This means that the first step of the involutive reduction of gjXi D+1 is to take away 
the multiple (fr)(x il . ..Xi D+1 _ y )gk of g k from gjX iD+1 to leave the polynomial gjX io+1 - 



■"■Technical point: if 7 7^ [3 + 1, the S-polynomial s v could in fact appear as s v = c v gjXi D+1 — 
c' v (xj 1 . . ■Xi D+1 __ i )gk and not as s v = c v (xj 1 . . . Xi n+1 _ — c' v gjXi D+1 ; for simplicity we will treat both 
cases the same in the proof as all that changes is the notation and the signs. 
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(^f)(xj l . . .Xi D W = —(-t)s v . But as we know that all prolongations involutively 
reduce to zero, we can conclude that the S-polynomial s v conventionally reduces to zero. 

For the S-polynomial s u , we note that if D — a— 1, then s u corresponds to a right overlap, 
and so we know from part (1) that s u conventionally reduces to zero. Otherwise, we 
proceed by induction on the S-polynomial s u to produce a sequence {u qD+1 ,u qD+2 , . . . , u Qa } 
of monomials, so that s u (and hence St) reduces to zero if the S-polynomial 

reduces to zero (1 ^ r) ^ \S\), where /i = deg(u qa ). 



Xi \ Xi D-(3 Xi D-fj+l Xi D 



U qD+l ~ U k ~ 
U lD+2 = 



x k-, 



Xi a — 1 Xi ct 



11 q a --^-^-^-^-^^-^-^^^ 

But always corresponds to a right overlap, and so s v reduces to zero — meaning we 
can conclude that St reduces to zero as well. 

(3) Consider an arbitrary entry St G S (1 ^ t ^ \S\) corresponding to a left overlap where 
the monomial Uj is a prefix of the monomial Wj. This means that St = Ctg% — c' t gjr' t for 
some gi, gj G G, with overlap word it, = Ujr' t . Let Wj = . . . Xi a and let Uj = Xj 1 . . . Xj„. 



x i\ x ^2 Xi (3 — 1 Xi {3 Xi f3+1 Xi a — 1 x ^ol 

x ji x 32 x ifi-\ x i() 

Because Uj is a prefix of Ui, it follows that T(uj,xf ) = 0. This gives rise to the 
prolongation gjXi /3+1 of gj. But we know that all prolongations involutively reduce to 
zero, so there must exist a monomial Uk = x^ ■ ■ ■ x^ £ U such that Uk involutively 
divides UjXi 0+1 . Assuming that x^ = Xi K , any candidate for Uk must be a suffix of UjXi p+1 
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(otherwise T(uk, xf K+1 ) = because of the overlap between Ui and Uk). 



X if3-1 X i/3 Xi fj + 1 Xi a-1 Xi a 

X 3/3-1 X 3/3 

If a = 7, then it is clear that Uk = Ui, and so the first step in the involutive reduction 
of the prolongation gjX% a is to take away the multiple {^f)gi of gi from gjXi a to leave the 
polynomial gjX\ a — i^)g% = — (p") s t- But as we know that all prolongations involutively 
reduce to zero, we can conclude that the S-polynomial s t conventionally reduces to zero. 

Otherwise, if a > 7, we can now use the monomial Uk together with Buchberger's Second 
Criterion to simplify our goal of showing that the S-polynomial s t reduces to zero. Notice 
that the monomial Uk is a subword of the overlap word associated to s t , and so in order 
to show that s t reduces to zero, all we have to do is to show that the two S-polynomials 

Su — C u gi C u (3?ii • • ■ Xip +1 — f )gk{Xi^ +2 ■ ■ ■ Xi a ) 

and 

Sv Cv(X{ 1 . . . X{p +1 _^)gk C v9j%i/3+i 

reduce to zero (1 ^ u, v ^ \S\). 

The S-polynomial s v reduces to zero by comparison with part (2). For the S-polynomial 
s u , first note that if a = /3 + 1, then s u corresponds to a right overlap, and so we know 
from part (1) that s u conventionally reduces to zero. Otherwise, if 7 ^ /3 + 1, then s u 
corresponds to a middle overlap, and so we know from part (2) that s u conventionally 
reduces to zero. This leaves the case where s u corresponds to another left overlap, in which 
case we proceed by induction on s u , eventually coming across either a middle overlap or a 
right overlap because we move one letter at a time to the right after each inductive step. 



Xi l Xi 2 Xi /3-l Xi ji Xi /3 + l Xi f3+2 Xi a-1 Xi a 

x h X 32 x 3(3-1 X 3f3 



U i 



Uk 
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(4 and 5) In Definition 3.1.2, we denned a prefix overlap to be an overlap where, given 
two monomials mi and m2 such that deg(mi) ^ deg(m.2), a prefix of mi is equal to a 
suffix of m>2 ; suffix overlaps were defined similarly. If we drop the condition on the degrees 
of the monomials, it is clear that every suffix overlap can be treated as a prefix overlap 
(by swapping the roles of vii\ and 7712); this allows us to deal with the case of a prefix 
overlap only. 

Consider an arbitrary entry s i GS'(l^t^|S'|) corresponding to a prefix overlap where 
a prefix of the monomial Ui is equal to a suffix of the monomial Uj. This means that 
St = cdtQi — c t9j r t f° r some g iy gj G G, with overlap word £ t Ui = Ujr' t . Let U{ = x ix . . . x ia ; 
let Uj = x,j 1 . . . Xj„ ; and choose D such that x i D = Xj„ . 



II; 



U; 



By definition of W, at least one of T(ui,Xj /3 _ D ) and T(uj,xf D+l ) is equal to zero. 

• Case T{ Uj ,x? D+1 ) = 0. 

Because we know that the prolongation gjXi D+1 involutively reduces to zero, there 
must exist a monomial Uk = x^ ■ ■ ■ x^ G U such that Uk involutively divides UjXi D+1 . 
This Uk must be a suffix of UjXi D+1 (otherwise, assuming that x^ = Xj K , we have 
T(uk, %f D+1 ) — if 7 = f3 (because of the overlap between Ui and u^); T(uk, xf^_) = 
if 7 < P and k = j3 (because of the overlap between Uj and u^; and T(w fc , xf K+1 ) = 
if 7 < (3 and k < (3 (again because of the overlap between Uj and 

Ui = — 



Uj 



Uk 



*- 1 T 



Jl 



Let us now use the monomial Uk together with Buchberger's Second Criterion to 
simplify our goal of showing that the S-polynomial s t reduces to zero. Because Uk is 
a subword of the overlap word t t Ui associated to s t , in order to show that s t reduces 
to zero, all we have to do is to show that the two S-polynomials 



)9i — c' u 9k{xi D+2 ■■■x ia ) if 7 > D + 1 
Cu9i ~ c'J'u9k(x iD+2 ...x ia ) if 7 ^ D + 1 
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and 

Sv c v gjXi D+l c v (xj 1 . . .Xjp +1 _^)(jk 
reduce to zero (1 ^ u,v ^ \S\). 

The S-polynomial s v reduces to zero by comparison with part (2). For the S- 
polynomial s u , first note that if a — D + 1, then either Uk is a suffix of Uj, Ui is a 
suffix of Mfc, or Uk = it follows that s u reduces to zero trivially if Uk = u i: and s u 
reduces to zero by part (1) in the other two cases. 

If however a ^ D + 1, then either s u is a middle overlap (if 7 < D + 1), a left 
overlap (if 7 = D+ 1), or another prefix overlap. The first two cases can be handled 
by parts (2) and (3) respectively; the final case is handled by induction, where we 
note that after each step of the induction, the value a + (3 — 2D strictly decreases 
(regardless of which case T(uj,xf D+1 ) = or T(ui,Xj^_ D ) = applies), so we are 
guaranteed at some stage to find an overlap that is not a prefix overlap, enabling 
us to verify that the S-polynomial s t conventionally reduces to zero. 

• Case T(ui,Xj _ D ) = 0. 

Because we know that the prolongation Xj /j _ D gi involutively reduces to zero, there 
must exist a monomial Uk = x^ ■ ■ ■ x^ € U such that Uk involutively divides Xj p _ D Ui. 
This Uk must be a prefix of Xj /3 _ D u i (otherwise, assuming that x^ = Xi K , we have 
T(uk, x jp_ D ) = if 7 = a (because of the overlap between Uj and Uk); T(uk, ^f K _ 7 ) = 
if 7 < a and k = a (because of the overlap between Ui and Uk) \ and T(uk, xf K x ) = 
if 7 < a and k < a (again because of the overlap between u^ and 



^ X h X 3f3-D x jp-D + i x ip 



Let us now use the monomial Uk together with Buchberger's Second Criterion to 
simplify our goal of showing that the S-polynomial St reduces to zero. Because Uk is 
a subword of the overlap word £ t Ui associated to s t , in order to show that s t reduces 
to zero, all we have to do is to show that the two S-polynomials 

$u ^u^k\9i Cu9k(%i~f ■ ■ ■ -Eia ) 
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and 





'30-D-l 



)g k ii 1 >D + l 
if 7 < D + 1 



reduce to zero (1 ^ u,v ^ \S\). 

The S-polynomial s u reduces to zero by comparison with part (2). For the S- 
polynomial s v , first note that if — D — 1, then either is a prefix of Uj, Uj is a 
prefix of Ufe, or = w,-; it follows that reduces to zero trivially if u k = Uj, and 
s v reduces to zero by part (3) in the other two cases. 

If however (3-D ^ 1, then either s v is a middle overlap (if 7 < D + 1), a right 
overlap (if 7 = D + 1), or another prefix overlap. The first two cases can be handled 
by parts (2) and (1) respectively; the final case is handled by induction, where we 
note that after each step of the induction, the value a + (3 — 2D strictly decreases 
(regardless of which case T(uj,xf D+1 ) = or T(ui,Xj D ) = applies), so we are 
guaranteed at some stage to find an overlap that is not a prefix overlap, enabling 
us to verify that the S-polynomial s t conventionally reduces to zero. 



□ 



Appendix B 
Source Code 



In this Appendix, we will present ANSI C source code for an initial implementation of the 
noncommutative Involutive Basis algorithm (Algorithm 12), together with an introduction 
to AlgLib, a set of ANSI C libraries providing data types and functions that serve as 
building blocks for the source code. 

B.l Methodology 

A problem facing anyone wanting to implement mathematical ideas is the choice of lan- 
guage or system in which to do the implementation. The decision depends on the task 
at hand. If all that is required is a convenient environment for prototyping ideas, a 
symbolic computation system such as Maple [55], Mathematica [57] or MuPAD [49] may 
suffice. Such systems have a large collection of mathematical data types, functions and 
algorithms already present; tools that will not be available in a standard programming 
language. There is however always a price to pay for convenience. These common systems 
are all interpreted and use a proprietary programming syntax, making it it difficult to 
use other programs or libraries within a session. It also makes such systems less efficient 
than the execution of compiled programs. 

The AlgLib libraries can be said to provide the best of both worlds, as they provide data 
types, functions and algorithms to allow programmers to more easily implement certain 
mathematical algorithms (including the algorithms described in this thesis) in the ANSI 
C programming language. For example, AlgLib contains the FMon [41] and FAIg [40] 
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libraries, respectively containing data types and functions to perform computations in 
the free monoid on a set of symbols and the free associative algebra on a set of symbols. 
Besides the benefit of the efficiency of compiled programs, the strict adherence to ANSI 
C makes programs written using the libraries highly portable. 

B.l.l MSSRC 

AlgLib is supplied by MSSRC [46], a company whose Chief Scientist is Prof. Larry Lambe, 
an honorary professor at the University of Wales, Bangor. For an introduction to MSSRC, 
we quote the following passage from [42]. 

Multidisciplinary Software Systems Research Corporation (MSSRC) was con- 
ceived as a company devoted to furthering the long-term effective use of math- 
ematics and mathematical computation. MSSRC researches, develops, and 
markets advanced mathematical tools for engineers, scientists, researchers, 
educators, students and other serious users of mathematics. These tools are 
based on providing levels of power, productivity and convenience far greater 
than existing tools while maintaining mathematical rigor at all times. The 
company also provides computer education and training. 

MSSRC has several lines of ANSI C libraries for providing mathematical sup- 
port for research and implementation of mathematical algorithms at various 
levels of complexity. No attempt is made to provide the user of these libraries 
with any form of Graphical User Interface (GUI). All components are compiled 
ANSI C functions which represent various mathematical operations from basic 
(adding, subtracting, multiplying polynomials, etc.) to advanced (operations 
in the free monoid on an arbitrary number of symbols and beyond) . In order 
to use the libraries effectively, the user must be expert at ANSI C program- 
ming, e.g., in the style of Kernighan and Richie [38] and as such, they are not 
suited for the casual user. This does not imply in any way that excellent user 
interfaces for applications of the libraries cannot be supplied or are difficult 
to implement by well experienced programmers. 

The use of MSSRC's libraries has been reported in a number of places such 
as [43], [14], [16], [15] and elsewhere. 
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B.1.2 AlgLib 

To give a taste of how AlgLib has been used to implement the algorithms considered in this 
thesis, consider one of the basic operations of these algorithms, the task of subtracting 
two polynomials to yield a third polynomial (an operation essential for computing an 
S-polynomial). In ordinary ANSI C, there is no data type for a polynomial, and certainly 
no function for subtracting two polynomials; AlgLib however does supply these data types 
and functions, both in the commutative and noncommutative cases. For example, the 
AlgLib data type for a noncommutative polynomial is an FAlg, and the AlgLib function 
for subtracting two such polynomials is the function fAlgMinus. It follows that we can 
write ANSI C code for subtracting two noncommutative polynomials, as illustrated below 
where we subtract the polynomial 2b 2 + ab + 4b from the polynomial 2 x {b 2 + ba + 3a). 

Source Code 

# include <fralg.h> 
hit 

main( argc, argv ) 
int argc; 
char *argv[]; 
{ 

// Define Variables 
FAlg p, q, r; 
Qlnteger two; 

// Set Monomial Ordering (DegLex) 
theOrdFun = fMonTLex; 

// Initialise Variables 

p = parseStrToFAlg("b~2 u +ub*a u + u 3*a"); 
q = parseStrToFAlg("2*b~2 u + u a*b u + u 4*b"); 
two = parseStrToQ("2"); 

// Perform the calculation and display the result on screen 
r = fAlgMinus( fAlgScaTimes( two, p ), q ); 

prmtf("2*(%s)u-uC/.s) u =u%s\n", fAlgToStr( p ), fAlgToStr( q ), fAlgToStr( r ) ); 
return EXIT.SUCCESS; 

} 



Program Output 

ma6:mssrc— aux/thesis> fAlgMinusTest 

2*(b"2 + ba + 3a)-(2b~2 + ab + 4b) = 2ba-ab-4b + 6a 
ma6 :mssrc— aux/thesis > 
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B.2 Listings 

Our implementation of the noncommutative Involutive Basis algorithm is arranged as 
follows: involutive. c is the main program, dealing with all the input and output and calling 
the appropriate routines; the 'Junctions 1 files contain all the procedures and functions 
used by the program; and README describes how to use the program, including what 
format the input files should take and what the different options of the program are used 
for. 

In more detail, arithmetic Junctions, c contains functions for dividing a polynomial by 
its (coefficient) greatest common divisor and for converting user specified generators to 
ASCII generators (and vice- versa); file Junctions, c contains all the functions needed to 
read and write polynomials and variables to and from disk; fralg Junctions . c contains 
functions for monomial orderings, polynomial division and reduced Grobner Bases com- 
putation; list Junctions, c contains some extra functions needed to deal with displaying, 
sorting and manipulating lists; and ncinv Junctions, c contains all the involutive routines, 
for example the Involutive Basis algorithm itself and associated functions for determining 
multiplicative variables and for performing autoreduction. 
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* HOW TO USE THE DEVOLUTIVE PROGRAM - QUICK GUIDE * 
NAME 

involutivc — Computes Noncommutativc Involutive Bases for ideals. 

SYNOPSIS 

involutive [OPTION]... [FILE]... 

DESCRIPTION 

Here are the options for the program. 

—a 

e.g. > involutivc — d —a file. in 

Optimises the lexicographical ordering according to 
the frequency of the variables in the input basis 
(most frequent = lexicographically smallest). 

-c(n) 

c. g. > involutivc — c2 file . in 

Chooses which involutive algorithm to use. 

n is a required number between 1 and 2. 

1: *DEFAULT * Gcrdt's Algorithm 
2: Seiler ' s Algorithm 

-d 

e. g. > involutivc — d file . in 

Allows the user to calculate a DegLex 

Involutivc Basis for the basis in file .in. 

-c(n) 

e.g. > involutive — c2 — s2 file, in 
Allows the user to select the type of Overlap 
Division to use. n is a required number between 
1 and 5. Note: Must be used with either the 
—si or — s2 options. 

Left Overlap Division: 

A B C D 



1: * DEFAULT * A, B, C (weak, Gr\"obner) 

2: A, B, C, Strong (strong if used with — m2) 

3: A, B, C, D (weak, Gr\"obner) 

4: A, B (weak, Gr\"obncr) 

5: A (weak, Gr\"obner) 
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Right Overlap Division: 



A 



13 



C 



D 



X 



x 



x 



X 



-f 



-1 



1: * DEFAULT * A, B, C (weak, Gr\"obner) 
2: A, B, C, Strong (strong if used with — m2) 
3: A, B, C, D (weak, Gr\"obner) 
4: A, B (weak, Gr\"obner) 
5: A (weak, Gr\"obner) 

e. g. > involutive — f file . in 

Removes any fractions from the input basis. 

e. g. > involutive —1 file . in 
Allows the user to calculate a Lex 
Involutive Basis for the basis in file . in . 
Warning: program may go into an infinite loop 
(Lex is not an admissible monomial ordering). 



e.g. > involutive — m2 file. in 

Selects which method of deciding whether a monomial 
involutivcly divides another monomial is used, 
n is a required number between 1 and 2. 

1: * DEFAULT * 1st letters on left and right (thin divisor ) 
2: All letters on left and right (thick divisor ) 



c. g. > involutive — o2 file . in 

Allows the user to select how the basis is sorted 
during the algorithm, n is a required number between 
1 and 3. 

1: * DEFAULT * DegRevLex Sorted 
2: No Sorting 

3: Sorting by Main Ordering 

e. g. > involutive —1 — p file . in 
An interactive Ideal Membership Problem Solver. 
There are two ways the solver can be used: 
either a file containing a list of polynomials 
(e.g. x*y-z; 

x~2— z~2+y~2; ) can be given, or the 
polynomials can be input 

manually (e.g. x*y— z). The solver tests to see 
whether the Involutive Basis computed in the 
algorithm reduces the polynomials given to zero. 



m(n) 



o(n) 
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-r * DEFAULT * 

e. g. > involutive — r file . in 

Allows the user to calculate a DegRevLex 

Involutive Basis for the basis in file . in . 

-s(n) 

e. g. > involutive — s2 file . in 
Allows the user to select the type of Involutive 
Basis to calculate . n is a required number between 
1 and 5. Note: If an 'Overlap' Division is selected , 
the type of Overlap Division can be chosen with 
the — e(n) option. 

1: Left Overlap Division (local , cts, see —e option) 
2: Right Overlap Division (local , cts , see — e option) 
3: * DEFAULT * Left Division (global, cts, strong) 
4: Right Division (global, cts, strong) 
5: Empty Division (global, cts , strong) 

-v(n) 

e. g. > involutive — v3 file . in 

Changes the amount of information given out by the 
program (i.e. the 'verbosity' of the program), 
n is a number between and 9. Rough Guide: 

0: Silent (no output given). 
1: * DEFAULT * 

2: Returns Number of Reductions Carried Out, 

Prints Out Every Polynomial Found 
3: More Autorcduction Information, 

Prolongation Information 
4: More Details of Steps Taken in Algorithm 
5: More Global Division Information 
6: Step— by— Step Reduction, Overlap Information 
7: Shows Multiplicative Grids 
8: More Overlap Division Information 
9: All Other Information 

— w 

e. g. > involutive — w file, in 

Allows the user to calculate an Involutive Basis 
for the basis in file . in using the Wreath 
Product Monomial Ordering. 

— x 

e. g. > involutive — x file . in 

Ignores any prolongations of degree greater than or 

equal to 2d, where d is a value determined by the degree 

of the largest degree lead monomial in the current minimal basis. 

Warning: May not return a valid Involutive Basis 

(only a valid Gr\"obner Basis). 
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FILE FORMATS 

There is one file format for the input basis : 
IDEALS: 



x; y; z; 
x*y — z; 
2*x + y*z + z; 



First line = List of variables in order. In the 

above, x; y; z; represents x > y > z. 
Remaining lines = Polynomial generators (which must be 
terminated by semicolons). 

OUTPUT 

As output, the program provides a reduced Gr\"obncr Basis and 
an Involutive Basis for the input ideal (if it can calculate it ). 

For the following , assume that our input basis was given as file . in . 

* If a DcgRcvLex Gr\"obner Basis is calculated, it is stored as file .drl. 

* If a DcgLex Gr\"obner Basis is calculated, it is stored as file . dcg. 

* If a Lex Gr\"obner Basis is calculated, it is stored as file .lex. 

* If a Wreath Product Gr\"obner Basis is calculated, it is stored as file ,wp. 

The Involutive Basis is given as <Gr\"obner Basis>.inv. 
For example, if a DegLex Involutive Basis is calculated , 
it is stored as file . deg.inv. 

Note that the program has the ability to recognise the . in suffix and 

replace it with, drl, . deg, .lex or . wp as necessary. 

If your input file does not have a . in suffix then the program will 

simply append the appropriate suffix onto the end of the file name. 

For example, using the command 

> involutive FILE 

we obtain file . drl if FILE = file, in 

and obtain e.g. file .other. drl if FILE = file. other. 

B.2.2 arithmetic_functions.h 

1 /* 

2 * File: arithmetic_functions.h 

3 * Author: Gareth Evans 

4 * Last Modified: 29th September 2004 

5 */ 
6 

7 // Initialise file definition 

8 # ifndef ARITHMETIC.FUNCTIONS.HDR 

: I # define ARITHMETIC.FUNCTIONS.HDR 
10 
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11 // Include MSSRC Libraries 

! # include <fralg.h> 

13 

14 // 

15 // Numerical Functions 

16 // 
17 

18 // Returns the numerical value of a 3 letter word 

19 ULong ASCIIVal( String ); 

20 // Returns the 3 letter word of a numerical value 

21 String ASCIIStr( ULong ); 

22 // Returns the monomial corresponding to the 3 letter word of a numerical value 

23 FMon ASCIIMon( ULong ); 
24 

25 // 

26 // Qlnteger Functions 

27 // 
28 

29 // Calculate Alternative LCM of 2 Qlntegers 

30 Qlnteger AltLCMQIntcgcr( Qlnteger, Qlnteger ); 

31 

32 // 

33 // FAlg Functions 

34 // 
35 

36 // Divides the input FAlg by its common GOD 

37 FAlg findGCD( FAlg ); 

38 // Returns maximal degree of lead term for the given FAlgList 

39 ULong maxDegree( FAlgList ); 

40 // Returns the position of the smallest LM(g) in the given FAlgList 
11 ULong fAlgListLowest( FAlgList ); 

42 

43 # endif // ARITHMETIC-FU NOTION S-HDR 

B.2.3 arithmetic_functions.c 

1 /* 

2 * File: arithmetic_functions.c 

3 * Author: Gareth Evans 

4 * Last Modified: 11th February 2005 

5 */ 
6 

7 /* 

8 * =================== 

9 * Numerical Functions 

10 * =================== 

11 */ 
12 

13 /* 

14 * Function Name: ASCIIVal 

15 * 

16 * Overview: Returns the numerical value of a 3 letter word 
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17 * 

18 * Detail: Given a String containing 3 letters from the set 

19 * {A, B, Z}, this function returns the numerical 

20 * value of the String according to the following rule: 

21 * AAA = 1, AAB = 2, AAZ = 26, ABA = 21, ABB = 28, 

22 * ABZ = 52, ACA = 53, ... 

23 * 

24 */ 

25 ULong 

26 ASCII Val( word ) 

27 String word; 

28 { 

29 ULong back = 0; 

30 

31 // Add on 11516*value of 1st letter (A = 0, B = 1, ...) 

32 back = back + 17576*( (ULong)( (int)word[0] - (int)'A' ) ); 

33 // Add on 26*value of 2nd letter (A = 0, B = 1, ...) 

34 back = back + 26*( (ULong)( (int)word[l] - (int)'A' ) ); 

35 // Add on the value of the 3rd letter (A = 1, B = 2, ...) 

36 back = back + (ULong)( (int)word[2] - (int)'A' + 1 ); 
37 

38 return back; 

39 } 
40 

41 /* 

42 * Function Name: ASCIIStr 

43 * 

44 * Overview: Returns the 3 letter word of a numerical value 

45 * 

46 * Detail: Given a ULong, this function returns the 

47 * 3 letter String corresponding to the following rule: 

48 * 1 = AAA, 2 = AAB, 26 = AAZ, 27 = ABA, 28 = ABB, 

49 * 52 = ABZ, 53 = ACA, ... 

50 * 

51 */ 

52 String 

53 ASCIIStr ( number ) 

5 4 ULong number; 

55 { 

56 String back = strNcw(); 

57 int i = 0, j = 0, k; 

58 

59 // Take away multiples of 26' 2 to get the first letter 

60 while( number > 17576 ) 

61 { 

62 i++; 

63 number = number — 17576; 

64 } 

65 

66 // Take away multiples of 26 to get the second letter 

67 while( number > 26 ) 

68 { 

69 j++; 
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70 number = number — 26; 

71 } 
72 

73 // We are now left with the third letter 

74 k = (int) number — 1; 
75 

76 // Convert the numbers to a String 

77 sprintf( back, "%c%c"/.c", (char)( (int) 'A' + i ), 

78 (char)( (int) 'A' + j ), 

79 (char)( (int) 'A' + k ) ); 

80 

81 // Return the three letters 

82 return back; 

83 } 
84 

85 /* 

86 * Function Name: ASCIIStr 

87 * 

88 * Overview: Returns the monomial corresponding to the 

89 * 3 letter word of a numerical value 

90 * 

91 * Detail: Given a ULong, this function returns the 

92 * monomial corresponding to the following rule: 

93 * 1 = AAA, 2 = AAB, 26 = AAZ, 27 = ABA, 28 = ABB, 

94 * 52 = ABZ, 53 = ACA, ... 

95 * 

96 */ 

97 FMon 

98 ASCIIMon( number ) 

99 ULong number; 

100 { 

101 // Obtain the String corresponding to the input 

102 // number and change it to an FMon 

103 return parseStrToFMon( ASCIIStr( number ) ); 

104 } 
105 

106 /* 

107 * ================== 

108 * Q Integer Functions 

109 * ================== 

110 */ 
111 

112 /* 

113 * Function Name: Alt L CM Q Integer 

114 * 

115 * Overview: Calculates an 'alternative' LCM of 2 Q Integers 

116 * 

117 * Detail: Given two Qlntegers a = an/ad and b = bn/bd, 

118 * this function calculates the LCM given 

119 * by altjcmfa, b) = (a*b)/(alt_gcd(a, b)) 

120 * = (an*bn*ad*bd)/(ad*bd*gcd(an, bn)*gcd(ad, bd)) 

121 * = (an*bn) / (gcd(an, bn)*gcd(ad, bd)). 

122 * 
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123 */ 

124 Qlnteger 

125 AltLCMQInteger( a, b ) 

126 Qlnteger a, b; 

127 { 

128 Integer an = a — > num, 

129 ad = a — > den, 

130 bn = b — > num, 

131 bd = b -> den; 

132 

133 return qDividc( zToQ( zTimcs( an, bn ) ), 

134 zToQ( zTimcs( zGcd( an, bn ), zGcd( ad, bd ) ) ) ); 

135 } 
136 

137 /* 

138 * ============== 

139 * FAlg Functions 

140 * ============== 

141 */ 
142 

143 /* 

144 * Function Name: findGCD 

145 * 

146 * Overview: Divides the input FAlg by its common GCD 

147 * 

148 * Detail: Given an FAlg, this function divides the 

149 * polynomial by its common GCD so that the output 

150 * polynomial g cannot be written as g = eg', where 

151 * g' is a polynomial and c is an integer, c > 1. 

152 * 

153 */ 

154 FAlg 

155 findGCD ( input ) 

156 FAlg input; 

157 { 

158 FAlg output = input, process = input; 

159 Qlnteger coef; 

160 Integer GCD = zOne, numerator, denominator; 

161 Bool first = 0, allNeg = qLess( fAlgLeadCoef( input ), qZero() ); 
162 

163 if( (ULong) fAlgNumTerms( input ) == 1 ) // If poly has just 1 term 

164 { 

165 // Return that term with a unit coefficient 

166 return fAlgMonom( qOne(), fAlgLeadMonom( input ) ); 



169 



167 



168 



} 

else // Poly has more than 1 term 
{ 



171 



170 



while( process ) // Go through each term 
{ 



175 



171 



173 



172 



coef = fAlgLcadCocf( process ); // Read the lead coefficient 
numerator = coef — > num; // Break the coefficient down 
denominator = coef — > den; // into a numerator and a denominator 
process = fAlgRcductum( process ); // Get ready to look at the next term 



APPENDIX B. SOURCE CODE 



224 



176 

177 if( zIsOnc( denominator ) != (Bool) 1 ) // If we encounter a fraction 

178 { 

179 return input; // We cannot divide through by a GCD so just return the input 

180 } 

181 else // The coefficient was an integer 

182 { 

183 if( first == ) // If this is the first term 

184 { 

185 first = (Bool) 1; 

186 GCD = numerator; // Set the GCD to be the current numerator 

187 } 

188 else // Recursively calculate the GCD 

189 GCD = zGcd( GCD, numerator ); 

190 } 

191 } 
192 

193 if( zLess( GCD, zZero ) == (Bool) 1 ) // If the GCD is negative 

194 GCD = zNegatc( GCD ); // Negate the GCD 

195 if( zLess( zOne, GCD ) == (Bool) I) // If the GCD is > 1 

output = fAlgZScaDiv( output, GCD ); // Divide the poly by the GCD 

197 } 
198 

199 if( allNeg == (Bool) 1 ) //If the original coefficient was negative 

return fAlgZScaTimcs( zMinusOnc, output ); // Return the negated polynomial 

201 else 

202 return output; 



203 } 
204 

205 /* 

206 * Function Name: maxDegree 

207 * 

208 * Overview: Returns maximal degree of lead term for the given FAlgList 

209 * 

210 * Detail: Given an FAlgList, this function calculates the degree 

211 * of the lead terra for each element of the list and returns 

212 * the largest value found. 

213 * 

214 */ 

215 ULong 

216 maxDegree( input ) 

217 FAlgList input; 

218 { 



219 ULong test, output = 0; 
220 

221 while( input ) // For each polynomial in the list 

222 { 

223 / / Calculate the degree of the lead monomial 

224 test = fMonLength( fAlgLeadMonom( input -> first ) ); 

225 if( test > output ) output = test; 

226 input = input — > rest; // Advance the list 

227 } 
228 
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229 // Return the maximal value 

230 return output; 

231 } 
232 

233 /* 

234 * Function Name: fAlgListLowest 

235 * 

236 * Overview: Returns the position of the smallest LM(g) in the given FAlgList 

237 * 

238 * Detail: Given an FAlgList, this function looks at all the leading 

239 * monomials of the elements in the list and returns the position of 

240 * the smallest lead monomial with respect to the monomial ordering 

241 * currently being used. 

242 * 

243 */ 

244 ULong 

245 fAlgListLowest ( input ) 

246 FAlgList input; 
217 { 

248 ULong output = 0, i, len = fAlgListLcngth( input ); 

249 FMon next, lowest; 
250 

251 if( input ) // Assume the 1st lead monomial is the smallest to begin with 

252 { 

253 lowest = fAlgLcadMonom( input — > first ); 

254 output = 1; 

255 } 

256 for( i = 1; i < len; H — \- ) // For the remaining polynomials 

257 { 

258 input = input — > rest; 

259 // Extract the next lead monomial 

next = fAlgLeadMonom( input — > first ); 

261 

262 //If this lead monomial is smaller than the current smallest 

263 if( theOrdFun( next, lowest ) == (Bool) 1 ) 

264 { 

265 // Make this lead monomial the smallest 

266 output = i+1; 

267 lowest = fAlgScaTimes( qOne(), next ); 

268 } 

269 } 
270 

271 // Return position of smallest lead monomial 

272 return output; 

273 } 
274 

275 /* 

276 * =========== 

277 * End of File 

278 * =========== 

279 */ 
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B.2.4 file_functions.h 

1 /* 

2 * File: file Junctions, h 

3 * Author: Gareth Evans 

4 * Last Modified: 14th July 2004 

5 */ 
6 

7 // Initialise file definition 

8 # ifndef FILE_FUNCTIONS_HDR 
# define FILE.FUNCTIONS.HDR 

10 

11 // Include MSSRC Libraries 

12 # include <fralg.h> 
13 

14 // MAXLINE denotes the length of the longest allowable line in a file 

15 # define MAXLINE 5000 
16 

17 // 

18 // Low Level File Handling Functions 

19 // 
20 

21 // Read a line from a file; return length 

22 int getLino( FILE *, char[], int ); 

23 // Pick an integer from a list such as "2, 5, 6," 

24 int intFromStr( char[], int, int * ); 

25 // Pick a variable from a list such as "a; b; c;" 

26 String variablcFromStr( char[], int, int * ); 

27 // Pick an FMon from a list such as "a; b; c;" 

28 FMon fMonFromStr( char[], int, int * ); 

29 // Pick an FAlg from a string such as "x*y — z;" 

30 FAlg fAlgFromStr( char[], int, int * ); 
31 

32 // 

33 // High Level File Reading Functions 

34 // 
35 

36 // Routine to read an FMonList from the first line of a file 

37 FMonList fMonListFromFile( FILE * ); 

38 // Routine to read an FAlgList from a file 

39 FAlgList fAlgListFromFile( FILE * ); 
40 

41 // 

42 // High Level File Writing Functions 

43 // 
44 

45 // Writes an FMon (in parse format) followed by a semicolon to a file 

46 void fMonToFile( FILE *, FMon ); 

47 // Writes an FMonList to a file on a single line 

48 void fMonListToFile( FILE *, FMonList ); 

49 

50 // 

51 // File Name Modification Functions 
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52 // 
53 

54 // Appends ".drl" onto a string (except in special case "*.in") 

55 String appcndDotDcgRevLcx ( char[] ); 

56 // Appends ".deg" onto a string (except in special case "*.in") 

57 String appcndDotDcgLex( char[] ); 

58 // Appends ".lex" onto a string (except in special case "*.in") 

59 String appcndDotLcx( char[] ); 

60 // Appends ".wp" onto a string (except in special case "*.in") 

61 String appendDotWP ( char[] ); 

62 // Calculates the length of an input string 

63 int filenamcLength ( char[] ); 

64 

65 # endif // F1LE.FUNCTIONS.HDR 

B.2.5 file_functions.c 

1 /* 

2 * File: file Junctions, c 

3 * Author: Gareth Evans 

4 * Last Modified: 16th August 2004 

5 */ 
6 

7 /* 

8 * ================================== 

9 * Low Level File Handling Functions 

10 * (Used in the high level functions) 

11 * ================================== 

12 */ 
13 

14 /* 

15 * Function Name: getLine 

16 * 

17 * Overview: Read a line from a file; return length 

18 * 

19 * Detail: Given a file jinfil-, we read the first line 

20 * of the file, placing the contents into the string 

21 * The third parameter Jim_ determines the maximum length 

22 * of any line to be returned (when we call the function 

23 * this is usually MAXLINE); the returned integer tells 

24 * us the length of the line we have just read. 

25 * 

26 * Known Issues: The length of a line is sometimes returned 

27 * incorrectly when a file saved in Windows is used 

28 * on a UNIX machine. Resave your file in UNIX. 

29 */ 

30 int 

31 getLine( infil, s, lim ) 

32 FILE *infil; 

33 char s[]; 

34 int lim; 

35 { 
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36 int c, i; 

37 

38 /* 

39 * Place characters in _s_ as long as (1) we do not exceed Jim- number of 

40 * characters; (2) the end of the file is not encountered; (3) the end of the 

41 * line is not encountered. 

42 */ 

43 for( i = 0; ( i < lim-1 ) && ( ( c = fgetc(infil) ) != -1 ) && ( c != (int)'Vi' ); i++ ) 
11 { 

45 s[i] = (char)c; 

46 } 

47 if( c == (int)'\n' ) // if the for loop was terminated due to reaching end of line 

48 { 

49 s[i] = (char)c; // add the newline character to our string 

50 i++; 

51 } 

52 s[i] = '\0'; // \0' is the null character 
53 

54 return i— 1; // The — 1 is used to compensate for the null character 

55 } 
56 

57 /* 

58 * Function Name: intFromStr 

59 * 

60 * Overview: Pick an integer from a list such as "2, 5, 6, " 

61 * 

62 * Detail: Starting from position _j_ in a string 

63 * read in an integer and return it. Note that the integer 

64 * in the string must be terminated with a comma and that 

65 * the sign of the integer is taken into account. 

66 * Once the integer has been read, place the position we 

67 * have reached in the string in the variable jpk— 

68 */ 

69 int 

70 intFromStr ( s, j, pk ) 

71 char s[]; 

72 int j, *pk; 

73 { 

74 char c; 

75 int n = 0, sign = 1, k = j; 

76 c = s[k]; 
77 

78 // Traverse through any empty space 

79 while( c == > u > ) 

80 { 

81 k++; 

82 c = s[k]; 

83 } 
84 

85 // If a sign is present, process it 

86 if( c == ' + ' ) 

87 { 

88 k++; 
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89 c = s[k]; 

90 } 

91 else if( c == '-' ) 

92 { 

93 sign = —1; 

94 k++; 

95 c = s[k]; 

96 } 
97 

98 // Until a comma is encountered (signalling the 

99 // end of the integer) 

100 while( c != ' , ' ) 

101 { 

102 if( ( c >= '0' ) && ( c <= '9' ) ) 

103 { 

104 n = 10*n + (int)(c — '0'); // the "— '0'" is needed to get the correct integer 

105 } 

106 else 

107 { 

printf( "Error : u Incorrect u Input u in u File u ('/ c u is u notua u iiumber) . \n" , c); 

109 cxit( EXIT.FAILURE ); 

110 } 

111 k++; 

112 c = s[k]; 

113 } 

114 *pk = k+1; // return the finishing position 
115 

116 /* 

117 * Note: In this function we return *pk = k+1 and not *pk = k as 

118 * in subseguent functions because this function has a slightly 

119 * different structure due to having to deal with the + and — 

120 * characters at the beginning of the string. 

121 */ 
122 

123 return sign*n; // return the integer 

124 } 
125 

126 /* 

127 * Function Name: variableFrornStr 

128 * 

129 * Overview: Pick a variable from a list such as "a; b; c;" 

130 * 

131 * Detail: Starting from position in a string 

132 * read in a String and return it. Note that the String 

133 * in the string must be terminated with a semicolon. 

134 * Once the String has been read, place the position we 

135 * have reached in the string in the variable jpk_. 

136 */ 

137 String 

138 variableFrornStr ( s, j, pk ) 

139 char s[]; 

140 int j, *pk; 

141 { 
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142 char c = ' u ' ; 

143 int i = 0, k = j; 

144 String back = strNewQ, concat; 
145 

146 sprintf( back, "" ); // Initialise back 
147 

148 // Until a semicolon is encountered 

149 while( c != ' ; ' ) 

150 { 

151 c = s[k]; // Pick a character from the string 
152 

153 // If a semicolon was encountered 

154 if( c == ' ; ' ) 

155 { 

156 concat = strNew(); 

157 sprintf( concat, '7,c", '\0' ); 

158 back = strConcat( back, concat ); // Finish with the null character 

159 } 

160 else if( c != > u > ) 

161 { 

162 concat = strNew(); 

163 sprintf( concat, '"/,c", c ); 

164 // Transfer character to output String 

165 if( i == ) back = strCopy( concat ); 

166 else back = strConcat( back, concat ); 

167 i++; 

168 } 

169 k++; 

170 } 

171 *pk = k; // Place finish position in the variable jpk_ 
172 

173 return back; // Return the String 



171 } 

175 

176 /* 

177 * Function Name: JMonFromStr 

178 * 

179 * Overview: Pick an FMon from a list such as "a; b; c;" 

180 * 

181 * Detail: Starting from position in a string 

182 * read in an FMon and return it. Note that the FMon 

183 * in the string must be terminated with a semicolon. 

184 * Once the FMon has been read, place the position we 

185 * have reached in the string in the variable jpk_. 

186 */ 

187 FMon 

188 fMonFromStr( s, j, pk ) 

189 char sQ; 

190 int j, *pk; 

191 { 

192 char c = > u >, a[MAXLINE]; 

193 int i = 0, k = j; 

194 FMon back; 
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195 

196 // Until a semicolon is encountered 

197 while( c != ' ; ' ) 

198 { 

199 c = s[k]; // Pick a character from the string 
200 

201 // If we have found a semicolon 

202 if( c == ' ; ' ) 

203 { 

204 a[i] = '\0'; // Finish the string with the null character 

205 } 

206 else 

207 { 

208 a[i] = c; // Continue to process... 

209 i++; 

210 } 

211 k++; 

212 } 

213 *pk = k; // Place the finish position in the variable jpk_ 
214 

215 back = parseStrToFMon( a ); // Convert the string to an FMon 

216 return back; // Return the FMon 

217 } 
218 

219 /* 

220 * Function Name: fAlgFromStr 

221 * 

222 * Overview: Pick an FAlg from a string such as "x*y — z;" 

223 * 

224 * Detail: Starting from position in a string 

225 * read in an FAlg and return it. Note that the FAlg 

226 * in the string must be terminated with a semicolon. 

227 * Once the FAlg has been read, place the position we 

228 * have reached in the string in the variable jpk_. 

229 */ 

230 FAlg 

231 fAlgFromStr( s, j, pk ) 

232 char s[]; 

233 int j, *pk; 

234 { 

235 char c = > u >, a[MAXLINE]; 

236 int i = 0, k = j; 

237 FAlg back; 

238 

239 // Until a semicolon is encountered 

240 while( c != ' ; ' ) 

241 { 

242 c = s[k]; // Read a character from the string 
243 

244 / / If a semicolon is encountered 

245 if( c == ' ; ' ) 

246 { 

247 a[i] = '\0'; // Finish with the null character 
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248 } 

249 else 

250 { 

251 a[i] = c; // Continue to process... 

252 i++; 

253 } 

254 k++; 

255 } 

256 *pk = k; // Place the finish position in the variable jpk_ 
257 

258 back = parseStrToFAlg( a ); // Convert the string to an FAlg 

259 return back; // Return the FAlg 

260 } 
261 

262 /* 

263 * ================================= 

264 * High Level File Reading Functions 

265 * ================================= 

266 */ 
267 

268 /* 

269 * Function Name: fMonListFromFile 

270 * 

271 * Overview: Routine to read an FMonList from the first line of a file 

272 * 

273 * Detail: Given an input file, this function 

274 * reads the first line of the file and returns 

275 * the semicolon separated FMonList found on that line. 

276 * For example, if the input is a list such as a; b; A; B: 

277 * then the output is the FMonList (a, b, A, B). 

278 */ 

279 FMonList 

280 fMonListFromFile( infil ) 

281 FILE *infil; 

282 { 

283 FMon w; 

284 FMonList words = fMonListNul; 

285 char s[MAXLINE]; 

286 int j = 0, k = 0, leu = 0; 

287 

288 / / Get the first line of the file and its length 

289 len = gctLinc( infil, s, MAXLINE ); 
290 

291 // While there are more FMons to be found 

292 while( j < lcn ) 

293 { 

294 w = fMonFromStr( s, j, &k ); // Obtain an FMon 

295 j = k; // Set the next starting position 

words = fMonListPush( w, words ); // Construct the list 

297 } 
298 

299 // Return the list — note that we must reverse the list 

300 // because it has been read in reverse order. 
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301 return fMonListFXRcv( words ); 

302 } 
303 

304 /* 

305 * Function Name: fAlgListFromFile 

306 * 

307 * Overview: Routine to read an FAlgList from a file 

308 * 

309 * Detail: Given an input file, this function 

310 * takes each line of the file in turn, pushing one FAlg from 

311 * each line onto an FAlgList. This process is 

312 * continued until there are no more lines in the file 

313 * to process. For example, if the input is a list such as 

314 * 

315 * 2*x — 4*y; 

316 * 5*x*y; 

317 * 4 + 5*x + 60*y; 

318 * 

319 * then the output is the FAlgList 

320 * (2x-4y, 5xy, 4+5x+60y). 

321 */ 

322 FAlgList 

323 fAlgListPromFile( infil ) 

324 FILE *mfil; 

325 { 

326 FAlg entry; 

327 FAlgList back = fAlgListNul; 

328 char s[MAXLINE]; 

329 int j = 0, k = 0, len; 

330 

331 // Get the first line of the file 

332 len = getLine( infil, s, MAXLINE ); 

333 

334 // While there are still lines to process 

335 while( len > ) 

336 { 

337 entry = fAlgFromStr( s, j, &k ); // Obtain an FAlg from a line 

338 back = fAlgListPush( entry, back ); // Push the FAlg onto the list 

339 len = getLine( infil, s, MAXLINE ); // Get a new line 

340 } 

341 

342 // Return the list — note that we must reverse the list 

343 // because it has been read in reverse order. 

344 return fAlgListFXRev( back ); 

345 } 
346 

347 /* 

348 * ================================= 

349 * High Level File Writing Functions 

350 * ================================= 

351 */ 
352 

353 /* 
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354 * Function Name: fMonToFile 

355 * 

356 * Overview: Writes an FMon (in parse format) followed by a semicolon to a file 

357 * 

358 * Detail: Given an input file and an FMon, this function 

359 * writes the FMon to file in parse format followed by a semicolon. 

360 */ 

361 void 

362 fMonToFile ( infll, w ) 

363 FILE *infil; 

364 FMon w; 

365 { 

366 FMon wM; 

367 ULong length; 

368 

369 //If the FMon is non-empty 

370 if ( fMonEqual( w, fMonOne() ) != (Bool) 1 ) 

371 { 

372 // While there are letters left in the FMon 
while ( w ) 

374 { 

375 wM = fMonLeadPowFac ( w ); // Obtain a factor 

376 fprintf( infil, "%s", fMonToStr( wM ) ); // Write the factor to file 

377 length = fMonLength( wM ); 

378 w = fMonSuffix( w, fMonLength( w ) - length ); 

379 if ( fMonEqual( w, fMonOne() ) != (Bool) 1 ) 

380 { 

381 // In parse format, to separate variables we use an asterisk 

382 fprintf( infll, "*" ); 

383 } 

384 } 

385 fprintf( infil, ";" ); // At the end write a semicolon to file 

386 } 

387 else // Just write a semicolon to file 

388 { 

389 fprintf( infil, ";" ); 

390 } 

391 } 

392 

393 /* 

394 * Function Name: fMonListToFile 

395 * 

396 * Overview: Writes an FMonList to a file on a single line 

397 * 

398 * Detail: Given an input file and an FMonList, this function 

399 * writes the list to file as 11; 12; 13; ... 

400 */ 

401 void 

102 fMonListToFile( infil, L ) 

403 FILE *infll; 

404 FMonList L; 

405 { 

406 ULong i, length = fMonListLength( L ); 
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407 

408 // For each element of the list 

409 for( i = 1; i <= length; i++ ) 

410 { 

411 // Write an FMon to file 

412 fMonToFile( infil, L -> first ); 
413 

414 //^f there are more FMons left to look at 

415 if( i < length ) 

416 { 

417 fprintf( infil, " u " ); // Provide a space between elements 

418 } 

419 else // else terminate the line 

420 { 

421 fprintf( infil, "\n" ); 

422 } 

423 L = L — > rest; 

424 } 

425 } 
426 

427 /* 

428 * ================================ 

429 * File Name Modification Functions 

430 * ================================ 

431 */ 
432 

433 /* 

434 * Function Name: appendDotDegRevLex 

435 * 

436 * Overview: Appends ".drl" onto a string (except in special case "*.in") 

437 * 

438 * Detail: Given an input character array, this function 

439 * appends the String ".drl" onto the end of the character array. 

440 * In the special case that the input ends with ".in", the function 

441 * replaces the ".in" with ".drl". 

442 */ 

443 String 

444 appendDotDegRevLex ( input ) 

445 char input []; 

446 { 

447 int length = (int) strlen( input ); 

448 String back = strNew(); 
449 

450 // First check for .in at the end of the file name 

451 if ( input[length-l] == 'n' & input [length-2] == 'i' & input[length-3] == ' .' ) 

452 { 

453 input[length-2] = >d>; 

454 input [length — 1] = J r'; 

455 sprintf( back, '"/,s'/,s", input, "1" ); 

456 } 

457 else // Just append with ".drl" 

458 { 

459 sprintf( back, "°/,s°/,s", input, ".drl" ); 
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460 } 
461 

462 return back; 

463 } 
464 

465 /* 

466 * Function Name: appendDotDegLex 

467 * 

468 * Overview: Appends ".deg" onto a string (except in special case "*.in") 

469 * 

470 * Detail: Given an input character array, this function 

471 * appends the String ".deg" onto the end of the character array. 

472 * In the special case that the input ends with ".in", the function 

473 * replaces the ".in" with ".deg". 

474 */ 

475 String 

476 appendDotDegLex ( input ) 
177 char input []; 

478 { 

479 int length = (int) strlen( input ); 

480 String back = strNew(); 
481 

482 // First check for .in at the end of the file name 

483 if ( input[length-l] == 'n' & input[length~2] == >i' & input [length-3] == ' . ' ) 

484 { 

485 input [length -2] = >d'; 

486 input [length -1] = >e>; 

487 sprintf( back, '7.s'/„s" , input, "g" ); 

488 } 

489 else // Just append with ".deg" 

490 { 

491 sprintf( back, "°/,s'/,s", input, ".deg" ); 

492 } 

493 

494 return back; 

495 } 
496 

497 /* 

498 * Function Name: appendDotLex 

499 * 

500 * Overview: Appends ".lex" onto a string (except in special case "*.in") 

501 * 

502 * Detail: Given an input character array, this function 

503 * appends the String ".lex" onto the end of the character array. 

504 * In the special case that the input ends with ".in", the function 

505 * replaces the ".in" with ".lex". 

506 */ 

507 String 

508 appendDotLex ( input ) 

509 char input []; 

510 { 

511 int length = (int) strlen( input ); 

512 String back = strNcwQ; 
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513 

514 // First check for .in at the end of the file name 

515 if ( input [length- 1] == 'n' & input[length-2] == >i' & input [length-3] == ' . ' ) 

516 { 

517 input [length -2] = 'I'; 

518 input [length -1] = 'e'; 

519 sprintf( back, '"/,s'/,s", input, "x" ); 

520 } 

521 else // Just append with ".lex" 

522 { 

523 sprintf( back, "%s'/.s", input, ".lex" ); 

524 } 
525 

526 return back; 

527 } 

528 

529 /* 

530 * Function Name: appendDotWP 

531 * 

532 * Overview: Appends ".wp" onto a string (except in special case "*.in") 

533 * 

534 * Detail: Given an input character array, this function 

535 * appends the String ".wp" onto the end of the character array. 

536 * In the special case that the input ends with ".in", the function 

537 * replaces the ".in" with ".wp". 

538 */ 

539 String 

540 appendDotWP ( input ) 

541 char input []; 

542 { 

543 int length = (int) strlen( input ); 

544 String back = strNewQ; 

545 

546 // First check for .in at the end of the file name 

547 if ( input[length-l] == 'n' & input[length-2] == >i' & input [length-3] == ' . ' ) 

548 { 

549 input [length -2] = >w'; 

550 input [length -1] = 'p'; 

551 sprintf( back, "°/,s", input ); 

552 } 

553 else // Just append with ".wp" 

554 { 

555 sprintf( back, "%s%s", input, ".wp" ); 

556 } 
557 

558 return back; 

559 } 
560 

561 /* 

562 * Function Name: filenameLength 

563 * 

564 * Overview: Calculates the length of an input string 

565 * 
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566 * Detail: Given an input character array, this function 

567 * finds the length of that character array 

568 */ 

569 int 

570 filenameLength ( s ) 

571 char s[]; 

572 { 

573 int i = 0; 

574 

575 while( s[i] != >\0' ) i++; 

576 

577 return i; 

578 } 
579 

580 /* 

581 * =========== 

582 * End of File 

583 * =========== 

584 */ 



B.2.6 fralg_functions.h 

1 /* 

2 * File: fralgj "unctions .h 

3 * Author: Gareth Evans 

4 * Last Modified: 10th August 2005 

5 */ 
6 

7 // Initialise file definition 

8 # ifndef FRALG.FUNCTIONS.HDR 

9 # define FRALG.FUNCTIONS.HDR 
10 

11 // Include MSSRC Libraries 

2 # include <fralg.h> 
13 

14 // Include System Libraries 

15 # include <limits.h> 
16 

17 // Include * Junctions Libraries 
L8 # include " list_f unctions .h" 
19 # include "arithmetic_functions .h" 

20 

21 // 

22 // External Variables Required 

23 // 
24 

25 extern ULong nRed; // Stores how many reductions have been performed 

26 extern int nOfGcnorators, // Holds the number of generators 

27 pi; // Holds the "Print Level" 
28 

29 // 

30 // Functions Defined in fralgj "unctions, c 



APPENDIX B. SOURCE CODE 



239 



31 // 
32 

33 // 

34 // Ordering Functions 

35 // 
36 

37 // Returns 1 if 1st arg <_{Lex} 2nd arg 

38 Bool fMonLex( FMon, FMon ); 

39 // Returns 1 if 1st arg <_{InvLex} 2nd arg 

40 Bool fMonInvLex( FMon, FMon ); 

41 // Returns 1 if 1st arg <_{DegRevLex} 2nd arg 

42 Bool fMonDegRovLcx( FMon, FMon ); 

43 // Returns 1 if 1st arg <_{WreathProduct} 2nd arg 

44 Bool fMonWreathProd( FMon, FMon ); 
45 

46 // 

47 // Alphabet Manipulation Functions 

48 // 
49 

50 // Substitutes ASCII generators for original generators in a list of polynomials 

51 FAlgList prcProcess( FAlgList, FMonList ); 

52 // Substitutes original generators for ASCII generators in a given polynomial 

53 String postProcess( FAlg, FMonList ); 

54 // As above but gives back its output in parse format 
r >~) String postProcessParse( FAlg, FMonList ); 

56 // Adjusts the original generator order (1st arg) according to frequency of generators in 2nd arg 

57 FMonList alphabetOptimise( FMonList, FAlgList ); 

58 

59 // 

60 // Polynomial Manipulation Functions 

61 // 
62 

63 // Returns all possible ways that 2nd arg divides 1st arg; 3rd arg = is division possible? 

64 FMonPairList fMonDiv( FMon, FMon, Short * ); 

65 // Returns the first way that 2nd arg divides 1st arg; 3rd arg = is division possible? 

66 FMonPairList fMonDivFirst( FMon, FMon, Short * ); 

67 // Finds all possible overlaps of 2 FMons 

68 FMonPairList fMonOverlaps( FMon, FMon ); 

69 // Returns the degree— based initial of a polynomial 

70 FAlg deglnitial( FAlg ); 

71 // Reverses a monomial 

72 FMon fMonReverse( FMon ); 
73 

74 // 

75 // Groebner Basis Functions 

76 // 
77 

78 // Returns the normal form of a polynomial w.r.t. a list of polynomials 

79 FAlg polyReduce( FAlg, FAlgList ); 

80 // Minimises a given Groebner Basis 

81 FAlgList minimalGB( FAlgList ); 

82 // Reduces each member of a Groebner Basis w.r.t. all other members 

83 FAlgList rcduccdGB( FAlgList ); 
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84 // Tests whether a given FAlg reduces to using the given FAlgList 

85 Bool idcalMcmbcrshipProblcm( FAlg, FAlgList ); 

86 

87 # endif // FRALG.FUNCTIONS.HDR 

B.2.7 fralg_functions.c 

1 /* 

2 * File: fralg Junctions, c 

3 * Author: Gareth Evans 

4 * Last Modified: 10th August 2005 

5 */ 
6 

7 /* 

8 * ====================================== 

9 * Global Variables for fralg_f unctions, c 

10 * ====================================== 

11 */ 
12 

13 static int bigVar = 1; // Keeps track of iteration depth in WreathProd 
14 

15 /* 

16 * ================== 

17 * Ordering Functions 

18 * ================== 

19 */ 
20 

21 /* 

22 * Function Name: fMonLex 

23 * 

24 * Overview: Returns 1 if 1st arg <_{Lex} 2nd arg 

25 * 

26 * Detail: Given two FMons x and y, this function 

27 * compares the two monomials using the lexicographic 

28 * ordering, returning 1 if x < y and if x > = y. 

29 * 

30 * Description of the Lex ordering: 

31 * 

32 * x < y iff (working left— to— right) the first (say ith) 

33 * letter on which x and y differ is 

34 * such that xS < yS in the ordering of the variables. 

35 * 

36 * External Variables Required: int pi; 

37 * 

38 * Note: This code is based on L. Lambe's "fMonTLex" code. 

39 */ 

40 Bool 

11 fMonLex( x, y ) 

42 FMon x, y; 

43 { 

44 ULong lcnx, leny, min, count = 1; 

45 int j ; 
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46 Bool back; 

47 

48 if( pi > 8 ) printf("Entered u to u compare u x u = u y,s u with u y u = u '/,s . . . U W', fMonToStr( x ), fMonToStr( y ) ); 

49 if( x == (FMon) NULL ) // If x is empty we only have to check that y is non-empty 

50 { 

51 if( pi > 8 ) printf("x u is u NULL u so u testing u if u y u is u NULL . . An"); 

52 return (Bool) ( y != (FMon) NULL ); 

53 } 

54 else if( y == (FMon) NULL ) // If y is empty x cannot be less than it so just return 

55 { 

56 if( pi > 8 ) printf("y u is u NULL u so u returning u O. . An"); 

57 return (Bool) 0; 

58 } 

59 else // Both non-empty 

60 { 

61 lcnx = fMonLcngth( x ); 

62 lcny = fMonLcngth( y ); 

63 

64 if( lcnx < leny ) // x has minimum length 

65 { 

66 min = lenx; 

67 back = (Bool) 1; // If limit reached we know x < y so return 1 

68 } 

69 else // y has minimum length 

70 { 

71 min = leny; 

72 back = (Bool) 0; // if limit reached we know x > = y so return 

73 } 
74 

75 while ( count <= min ) // For each generator 

76 { 

77 if( pi > 8 ) 

78 { 

printf("Comparing u '/,s u with u y,s\n", fMonLeadVar( fMonSubWordLen( x, count, 1 ) ), 

80 fMonLeadVar( fMonSubWordLcn( y, count, 1 ) ) ); 

81 } 

82 // Compare generators 

83 if( ( j = strcmp( fMonLeadVar( fMonSubWordLen ( x, count, 1 ) ), 

84 fMonLeadVar( fMonSubWordLcn( y, count, 1 ) ) ) ) < ) 

85 { 

86 if( pi > 8 ) printf("x u is u less u than u y . . . u \n"); 

87 return (Bool) 1; 

88 } 

89 else if( j > ) 

90 { 

91 if( pi > 8 ) printf("y u is u less u than u x. . . u \n"); 

92 return (Bool) 0; 

93 } 

94 count++; 

95 } 

96 } 

97 

98 // Limit now reached; return previously agreed solution 
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99 if( pi > 8 ) printf("Returning u 7,i ■ ■ -u\n", (int) back); 

100 return back; 

101 } 
102 

103 /* 

104 * Function Name: fMonlnvLex 

105 * 

106 * Overview: Returns 1 if 1st arg <_{InvLex} 2nd arg 

107 * 

108 * Detail: Given two FMons x and y, this function 

109 * compares the two monomials using the inverse lexicographic 

110 * ordering, returning 1 if x < y and if x > = y. 

111 * 

112 * Description of the InvLex ordering: 

113 * 

114 * x < y iff (working right— to— left) the first (say ith) 

115 * letter on which x and y differ is 

116 * such that xj, < yS in the ordering of the variables. 

117 * 

118 * External Variables Required: int pi; 

119 * 

120 * Note: This code is based on L. Lambe's "fMonTLex" code. 

121 */ 

122 Bool 

123 fMonInvLcx( x, y ) 

124 FMon x, y; 

125 { 

126 ULong lenx, leny, min, count = 0; 

127 intj; 

128 Bool back; 
129 

130 if( pi > 8 ) printf("Entered u to u compare u x u = u y,s u with u y u =u'/.s . . . u\n", fMonToStr( x ), fMonToStr( y ) ); 

131 if( x == (FMon) NULL ) // If x is empty we only have to check that y is non-empty 

132 { 

133 if( pi > 8 ) printf("x u is u NULL u so u testing u if u y u is u NULL . . An"); 

134 return (Bool) ( y != (FMon) NULL ); 

135 } 

136 else if( y == (FMon) NULL ) // If y is empty x cannot be less than it so just return 

137 { 

138 if( pi > 8 ) printf("y u is u NULL u so u returning u O. . .\n"); 

139 return (Bool) 0; 

140 } 

1 1 1 else // Both non-empty 
112 { 

143 lcnx = fMonLength( x ); 

144 lcny = fMonLcngth( y ); 

145 

146 if( lenx < lcny ) // x has minimum length 

147 { 

148 min = lenx; 

149 back = (Bool) 1; // // limit reached we know x < y so return 1 

150 } 

151 else // y has minimum length 
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152 { 

153 min = leny; 

154 back = (Bool) 0; // if limit reached we know x > = y so return 

155 } 
156 

157 while( count < min ) // For each generator 

158 { 

159 if( pi > 8 ) 

160 { 

printf("Comparing u '/,s u wlth u 7,s\n", fMonLcadVar( fMonSubWordLen( x, lenx— count, 1 ) ), 

162 fMonLeadVar( fMonSubWordLen( y, leny-count, 1 ) ) ); 

163 } 

164 // Compare generators Sn reverse- 

165 if( ( j = strcmp( fMonLcadVar( fMonSubWordLcn( x, lcnx— count, 1 ) ), 

166 fMonLeadVar( fMonSubWordLen( y, leny-count, 1 ) ) ) ) < ) 

167 { 

168 if( pi > 8 ) printf("x u is u less u than u y . . . u \n"); 

169 return (Bool) 1; 

170 } 

171 else if( j > ) 

172 { 

173 if( pi > 8 ) printf("y u is u less u than u x. . . u \n"); 

174 return (Bool) 0; 

175 } 

176 count ++; 

177 } 

178 } 
179 

180 // Limit now reached; return previously agreed solution 

181 if( pi > 8 ) printf("Returning u '/.i. . . u \n", (int) back); 

182 return back; 



183 } 
184 

185 /* 

186 * Function Name: fMonDegRevLex 

187 * 

188 * Overview: Returns 1 if 1st arg <_{DegRevLex} 2nd arg 

189 * 

190 * Detail: Given two FMons x and y, this function 

191 * compares the two monomials using the degree reverse lexicographic 

192 * ordering, returning 1 if x < y and if x > = y. 

193 * 

194 * Description of the DegRevLex ordering: 

195 * 

196 * x < y iff deg(x) < deg(y) or deg(x) = deg(y) 

197 * and x <_{R.evLex} y, that is, working right to left, 

198 * the first (say ith) letter on which x and y differ is 

199 * such that xS > yS in the ordering of the variables. 

200 * 

201 * External Variables Required: int pi; 

202 * 

203 * Note: This code is based on L. Lambe's "fMonTLex" code. 

204 */ 
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205 Bool 

206 fMonDegRevLex( x, y ) 

207 FMon x, y; 

208 { 



209 ULong lenx, leny, count; 

210 intj; 

211 

212 if( pi > 8 ) printf("Entered u to u compare u x u = u y,s u with u y u =u'/.s . . . u\n", fMonToStr( x ), fMonToStr( y ) ); 

213 

214 if( x == (FMon) NULL ) // If x is empty we only have to check that y is non-empty 

215 { 

216 if( pi > 8 ) printf("x u is u NULL u so u testing u if u y u is u NULL . . An"); 

217 return (Bool) ( y != (FMon) NULL ); 

218 } 

219 else if( y == (FMon) NULL ) // If y is empty x cannot be less than it so just return 

220 { 

221 if( pi > 8 ) printf("y u is u NULL u so u returning u O. . An"); 

222 return (Bool) 0; 

223 } 

224 else // Both non-empty 

225 { 

226 lcnx = fMonLength( x ); 

227 leny = fMonLength( y ); 

228 

229 // In DegRevLex, compare the degrees first... 

230 if( lcnx < leny ) 

231 { 

232 if( pi > 8 ) printf("x u is u less u than u y. . . u \n"); 

233 return (Bool) 1; 

234 } 

235 else if( leny < lenx ) 

236 { 

237 if( pi > 8 ) printf("y u is u less u than u x. . . u \n"); 

238 return (Bool) 0; 

239 } 

240 else // The degrees are the same, now use RevLex... 

241 { 

242 count = lenx; // lenx is arbitrary (because lenx = leny) 
243 

244 while( count > ) // Work in ^reverse- 

245 { 

246 if( pi > 8 ) 

247 { 

248 printf("Comparing u '/,s u with u '/,s\n", fMonLeadVar( fMonSubWordLen( x, count, 1 ) ), 

249 fMonLeadVar( fMonSubWordLen( y, count, 1 ) ) ); 

250 } 

251 if( ( j = strcmp( fMonLeadVar( fMonSubWordLen( x, count, 1 ) ), 

252 fMonLeadVar( fMonSubWordLen( y, count, 1 ) ) ) ) > ) 

253 { 

254 if( pi > 8 ) printf("x u is u less u than u y . . . u \n"); 

255 return (Bool) 1; 

256 } 

257 else if( j < ) 
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258 { 

if( pi > 8 ) printf("y u is u less u than u x. . . u \n"); 

260 return (Bool) 0; 

261 } 

262 count ; 

263 } 

264 } 

265 } 
266 

267 // No differences found so monomials must be the same 

268 if( pi > 8 ) printf("Same, u returning u O. . . u \n"); 

269 return (Bool) 0; 

270 } 
271 

272 /* 

273 * Function Name: fMonWreathProd 

274 * 

275 * Overview: Returns 1 if 1st arg <_{ WreathProduct} 2nd arg 

276 * 

277 * Detail: Given two FMons x and y, this function 

278 * compares the two monomials using the wreath product 

279 * ordering, returning 1 if x < y and if x > = y. 

280 * This function is recursive. 

281 * 

282 * Description of the Wreath Product Ordering: 

283 * 

284 * Let the alphabet have a total order (e.g. a < b < ...) 

285 * Count the number of occurrences of the highest weighted letter (e.g. z), 

286 * the string with the most is bigger. 

287 * // both strings have the same number of those letters, they can 

288 * be written uniquely: 

289 * si = xO z xl z x2 ... z xn 

290 * s2 = yO z yl z y2 ... z yn 

291 * 

292 * Then si < s2 if 

293 * xO < yO or 

294 * xO = yO and xl < yl, etc. 

295 * (< = wreath product ordering 'on y'; iterate as needed) 

296 * 

297 * Examples: 

298 * a' 100 < aba" 2 because 1 < b 

299 * aba "2 < a "2ba because b = b and a < a" 2 

300 * a ~2ba < b ~2a because b < b"2 

301 * b "2a < bab because b"2 = b"2 and 1 < a (si = lblba and s2 = lbabl) 

302 * bab < ab"2 because b"2 = b"2 and 1 < a (si = lbabl and s2 = ablbl) 

303 * 

304 * External Variables Required: int pi, nOfGenerators; 

305 * Global Variables Used: int bigVar; 

306 * 

307 * Note: This code is based on L. Lambe's "fMonTLex" code. 

308 */ 

309 Bool 

310 fMonWreathProd ( x, y ) 
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311 FMon x, y; 

312 { 



313 FMonList xList = fMonListNul, yList = fMonListNul; 

314 FMon xPad = fMonOne(), yPad = fMonOne(), xLetter, yLetter, bigMon; 

315 ULong xCount = 0, yCount = 0, i = 0; 

316 

317 /* 

318 * Note: the global variable 'bigVar' is used to keep 

319 * track of the iteration depth. The algorithm is designed 

320 * so that the value of bigVar is always returned to its 

321 * original value (which is usually 1) 

322 */ 
323 

324 if( pi > 8 ) printf("Entered u fMonWreathProd u ('/,i)utOuCompare u x u =u'/oSuwith u y u = u '/,s. . . u \n", 

325 bigVar, fMonToStr( x ), fMonToStr( y ) ); 

326 

327 // Fail safe check — cannot have more iterations than generators; 

328 // value 1 chosen by convention (in the case of eguality) 

329 if( !( nOfGenerators-bigVar >= ) ) return (Bool) 1; 
330 

331 // Deal with special cases first 

332 if( x == (FMon) NULL ) // If x is empty we only have to check that y is non-empty 

333 { 

334 if( pi > 8 ) printf("x u is u NULL u so u testing u if u y u is u NULL . . An"); 

335 return (Bool) ( y != (FMon) NULL ); 

336 } 

337 else if( y == (FMon) NULL ) // If y is empty x cannot be less than it so just return 

338 { 

339 if( pi > 8 ) printf("y u is u NULL u so u returning u O. . .\n"); 

340 return (Bool) 0; 

341 } 

342 else if ( fMonEqual( x, y ) == (Bool) 1 ) / / If x == y just return 

343 { 

if( pi > 8 ) printf(" x u - uyuSO u returriingu0 . . An"); 

345 return (Bool) 0; 

346 } 

347 else // Both non-empty and not equal 

348 { 

349 / / Construct the generator for this iteration 

350 bigMon = ASCIIMon( (ULong) nOfGenerators - (ULong) bigVar + 1 ); 

351 

352 / / Process x letter by letter, creating lists of intermediate terms 

353 while( fMonIsOne( x ) != (Bool) 1 ) 

354 { 

355 xLetter = fMonPrcfix( x, 1 ); // Look at the first letter 

356 if( fMonEqual( xLetter, bigMon ) == (Bool) 1 ) // if xLetter == bigMon 

357 { 

358 xCountH — h; // Increase the number of elements in the list 

359 xList = fMonListPush( xPad, xList ); 

360 xPad = fMonOneQ; // Reset 

361 } 

362 else 

363 { 
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364 xPad = fMonTimes( xPad, xLetter ); // Build up next element 

365 } 

366 x = fMonSuffix( x, fMonLength( x ) — 1 ); // Look at next letter 

367 } 

368 xList = fMonListPush( xPad, xList ); // Flush out the remainder 
369 

370 // Process y letter by letter 

371 while( fMonIsOne( y ) != (Bool) 1 ) 

372 { 

373 yLctter = fMonPrcfix( y, 1 ); // Look at the first letter 

374 if( fMonEqual( yLetter, bigMon ) == (Bool) 1 ) //if yLetter == bigMon 

375 { 

376 yCount H — h; // Increase the number of elements in the list 

377 yList = fMonListPush( yPad, yList ); 

378 yPad = fMonOno(); // Reset 

379 } 

380 else 

381 { 

382 yPad = fMonTimes( yPad, yLetter ); // Build up next element 

383 } 

384 y = fMonSuffix( y, fMonLength( y ) - 1 ); // Look at next letter 

385 } 

386 yList = fMonListPush( yPad, yList ); // Flush out the remainder 
387 

388 /* 

389 * Assuming representations 

390 * x = xO z xl z x2 ... z xn and 

391 * y = yO z yl z y2 ... z ym, 

392 * 

393 * We now have 

394 * xList = (xn, x2, xl, xO), 

395 * yList = (ym, y2, yl, yO), 

396 * and xCount and yCount hold the number of 

397 * z's in x and y respectively. 

398 * 

399 */ 
400 

401 // If xCount != y Count then we have a result... 

402 if( xCount < yCount ) 

403 { 

if( pi > 8 ) printf("x u has u less u of u the u highest u weighteduletter u so u returning u l . . An"); 

405 return (Bool) 1; 

406 } 

else if( xCount > yCount ) 

408 { 

409 if( pi > 8 ) printf("x u has u more u of u the u highest u weighteduletter u so u returning u O. . An"); 

410 return (Bool) 0; 

411 } 

412 else // ...otherwise we have to look at the intermediate terms 

413 { 

414 // Reverse the lists to obtain 

415 // xList = (xO, xl, x2, xn) and 

416 // yList = (yO, yl, y2, yn) 
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417 xList = fMonListFXRev( xList ); 

418 yList = fMonListFXRev( yList ); 

419 

420 // Increase the iteration value we will now compare the 

421 // elements of the lists w.r.t. the next highest variable 

422 bigVar++; 

423 while( xList ) 

424 { 

425 i++; 

426 if( fMonWreathProd( xList -> first, yList -> first ) == (Bool) 1 ) 

427 { 

428 if( pi > 8 ) printf("On u component u '/,u >u x u < u y . . .\n", i); 

429 bigVar ; // reset before return 

430 return (Bool) 1; 

431 } 

432 else if( fMonWreathProd( yList -> first, xList -> first ) == (Bool) 1 ) 

433 { 

434 if( pi > 8 ) printf("0n u component u 7,u, u y u < u x. . .\n", i); 

435 bigVar ; // reset before return 

436 return (Bool) 0; 

437 } 

438 else // (equal) 

439 { 

440 // Look at the next values in the sequence 
111 xList = xList — > rest; 

442 yList = yList — > rest; 

443 } 

444 } 

445 /* 

446 * Note: we should never reach this part of the code 

447 * because we know that at least one list comparison 

448 * will return a result (not all list comparisons will 

449 * return 'equal' because we know by this stage that 

450 * x is not equal to y). However we carry on for 

451 * completion. 

452 */ 

453 bigVar ; // Reset 

454 } 

455 } 
456 

457 printf("Executing u Unreachable u Code\n"); 

458 exit( EXIT.FAILURE ); 

459 return (Bool) 0; 



460 } 
461 

462 /* 

463 * =================== 

464 * Alphabet Manipulation Functions 

465 * =================== 

466 */ 
467 

468 /* 

469 * Function Name: preProcess 
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470 * 

471 * Overview: Substitutes ASCII generators for original generators in a list of polynomials 

472 * 

473 * Detail: This function takes a list of polynomials ^originalPolys^ 
A7A * in a set of generators _originalGenerators_ and returns the 

475 * same set of polynomials in ASCII generators, where the first 

476 * element of _originalGenerators_ is replaced by 'AAA ', the 

477 * second element by 'AAB', etc. 

478 * 

479 * For example, if _originalGenerators_ = (x, y, z) so that the 

480 * generator order is x < y < z, and if ^originalPolys^ = (x*y—z, 4*x'2—5*z), 

481 * the output list is (AAB* AAB— A AC, 4*AAA~2-5*AAC). 

482 * 

483 */ 

484 FAlgList 

485 preProcess( originalPolys, originalGcncrators ) 

486 FAlgList originalPolys; 

487 FMonList originalGcncrators; 

488 { 



489 FAlgList newPolys = fAlgListNul; 

490 FAlg oldPoly, newPoly, adder; 

491 ULong i, oldPolySizc, genLength, position; 

492 FMon first TcrmMon, newFirstTermMon, multiplier, gen; 

493 Qlnteger first TermCoef; 
494 

495 // Go through each polynomial in turn... 

496 while( originalPolys ) 

497 { 

498 oldPoly = originalPolys — > first; // Extract a polynomial 

499 originalPolys = originalPolys — > rest; 

500 oldPolySizc = (ULong) fAlgNumTerms( oldPoly ); // Obtain the number of terms 

501 newPoly = fAlgZero(); // Initialise the new polynomial 
502 

503 for( i = 1; i <= oldPolySizc; H — h ) // For each term in the polynomial 

504 { 

505 first TermMon = fAlgLeadMonom( oldPoly ); // Extract monomial 

506 first TermCoef = fAlgLeadCoef( oldPoly ); // Extract coefficient 

507 oldPoly = fAlgReductum( oldPoly ); // Get ready to look at the next term 

508 newFirstTermMon = fMonOne(); // Initialise the new monomial 
509 

510 // Go through each term replacing generators as required 

511 while( fMonIsOne( firstTcrmMon ) != (Bool) 1 ) 

512 { 

513 gen = fMonPrefix( firstTcrmMon, 1 ); // Take the first letter 'x' 

514 position = fMonListPosition( gen, originalGcncrators ); // Find the position of the letter in the list 

515 multiplier = ASCIIMon( position ); // Obtain the ASCII generator corresponding to x 

516 genLength = fMonLcadExp( firstTcrmMon ); // Find the exponent 'a' as in x'a 

517 // Multiply new monomial by (ASCII) x'a 

newFirstTermMon = fMonTimes( newFirstTermMon, fMonPow( multiplier, genLength ) ); 

519 // Lose x'a from original monomial 

520 first TermMon = fMonSufHx( firstTermMon, fMonLength( firstTermMon ) - genLength ); 

521 } 

522 
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523 adder = fAlgMonom( first TcrmCoef, newFirstTermMon ); // Construct the new ASCII term 

524 newPoly = fAlgPlus( newPoly, adder ); // Add the new ASCII term to the output polynomial 

525 } 

526 ncwPolys = fAlgListPush( newPoly, newPolys ); // Push new polynomial onto output list 

527 } 

528 

529 // Return the reversed list (it was read in reverse) 

530 return fAlgListFXRev( newPolys ); 

531 } 
532 

533 /* 

534 * Function Name: postProcess 

535 * 

536 * Overview: Substitutes original generators for ASCII generators in a given polynomial 

537 * 

538 * Detail: This function takes a polynomial _oldPoly_ in ASCII generators 

539 * and returns the same polynomial in a corresponding set of generators 

540 * _originalGenerators_. The output is returned as a String 

541 * in fAlgToStr( ... ) format. 

542 * 

543 * For example, if _originalGenerators_ = (x, y, z) so that the 

544 * generator order is x < y < z, and if _oldPoly_ = A*B—C~2, then 

545 * the output String is "x y — z~2". 

546 * 

547 */ 

548 String 

549 postProcess ( oldPoly, originalGcnerators ) 

550 FAlg oldPoly; 

551 FMonList originalGcnerators; 

552 { 

553 FAlg adder; 

554 Bool result; 

555 FMon firstTcrmMon, gen, newFirstTermMon, multiplier; 

556 Qlnteger firstTcrmCoef; 

557 ULong i, match, oldPolySize, gcnLength; 

558 String back = strNew(); 

559 

560 sprintf( back, "" ); // Initialise back 
561 

562 // Obtain the number of terms in the polynomial 

563 oldPolySize = (ULong) fAlgNumTerms( oldPoly ); 

564 

565 for( i = 1; i <= oldPolySize; i-j — h ) // For each term 

566 { 

567 firstTcrmMon = fAlgLeadMonom( oldPoly ); // Obtain the lead monomial 

568 firstTcrmCoef = fAlgLcadCoef( oldPoly ); // Obtain the lead coefficient 

569 result = qLess( firstTcrmCoef, qZero() ); // Test if coefficient is —ve 

570 oldPoly = fAlgRcductum( oldPoly ); // Get ready to look at the next term 

571 newFirstTermMon = fMonOne(); // Initialise the new monomial 
572 

573 // Go through the term replacing generators as required 

574 while( fMonIsOne( firstTermMon ) != (Bool) 1 ) 

575 { 
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576 gen = fMonPrefix( first TermMon, 1 ); // Obtain the first letter 'x' 

577 genLength = fMonLeadExp( first TermMon ); // Obtain 'a' as in x'a 

578 // Calculate the ASCII value ('AAA' = 1, 'AAB' = 2, ...) 

579 match = ASCIIVal( fMonToStr( gen ) ); 

580 multiplier = fMonListNumber( match, originalGenerators ); // Find the original generator 

581 multiplier = fMonPow( multiplier, genLength ); 

582 newFirst TermMon = fMonTimes( newFirst TermMon, multiplier ); // Multiply new monomial by the original x'a 

583 // Remove ASCII x~ a from original monomial 

584 first TermMon = fMonSuffix( first TermMon, fMonLength( first TermMon ) - genLength ); 

585 } 
586 

587 // Now add the term to the output string 

588 if( i == 1 ) // First term 

589 back = strConcat( back, fAlgToStr( fAlgMonom( firstTermCoef, newFirstTermMon ) ) ); 

590 else // Must insert the correct sign (plus or minus) 

591 { 

592 if( result == ) // Coefficient is +ve 

593 { 

594 adder = fAlgMonom( firstTermCoef, newFirstTermMon ); // Construct the new term 

595 back = strConcat( back, " u +u" ); 

596 back = strConcat( back, fAlgToStr( adder ) ); 

597 } 

598 else // Coefficient is —ve 

599 { 

adder = fAlgMonom( qNegate( firstTermCoef ), newFirstTermMon ); // Construct the new term 

601 back = strConcat( back, " u ~u" ); 

602 back = strConcat( back, fAlgToStr( adder ) ); 

603 } 

604 } 



605 } 
606 

607 return back; 

608 } 
609 

610 /* 

611 * Function Name: postProcessParse 

612 * 

613 * Overview: As above but gives back its output in parse format 

614 * 

615 * Detail: This function takes a polynomial _oldPoly_ in ASCII generators 

616 * and returns the same polynomial in a corresponding set of generators 

617 * ^originalGenerators^. The output is returned as a String in 

618 * parse format (with asterisks). 

619 * 

620 * For example, if ^originalGenerators^ = (x, y, z) so that the 

621 * generator order is x < y < z, and if _oldPoly_ = A*B— C"2, then 

622 * the output String is "x*y — z'2". 

623 * 

624 */ 

625 String 

626 postProcessParse ( oldPoly, originalGenerators ) 

627 FAlg oldPoly; 

628 FMonList originalGenerators; 
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629 { 



630 Short first = 1, written; 

631 FMon firstTermMon, gen, multiplier; 

632 Qlnteger first TcrmCoef; 

633 ULong i, match, oldPolySize, gcnLength; 

634 String back = strNew(); 
635 

636 sprintf( back, "" ); // Initialise back 
637 

638 if( loldPoly ) // If input is NULL output the zero polynomial 

639 { 

640 back = strConcat( back, "0" ); 

641 return back; 

642 } 

643 

644 // Obtain the number of terms in the polynomial 

645 oldPolySize = (ULong) fAlgNumTerms( oldPoly ); 

646 

647 for( i = 1; i <= oldPolySize; i++ ) // For each term 

648 { 

649 // Assume to begin with that nothing has been added to 

650 // the String regarding the term we are now looking at 

651 written = 0; 
652 

653 // Break down a term of the polynomial into its pieces 

654 firstTermMon = fAlgLeadMonom( oldPoly ); // Obtain the lead monomial 

655 first TermCoef = fAlgLcadCoef( oldPoly ); // Obtain the lead coefficient 
656 

657 if( qLess( first TermCoef, qZero() ) == (Bool) 1 ) // If the coefficient is —ve 

658 { 

659 if( first == 1 ) // If this is the first term encountered 

660 { 

661 first = 0; // Set to avoid this loop in future 
662 

663 // Note: there is no need for a space before the minus sign 

664 back = strConcat( back, "-" ); 

665 } 

666 else / / This is not the first term 

667 { 

668 // Separate two terms with a minus sign 

669 back = strConcat( back, " u _ u" ); 

670 } 
671 

672 // Now that we have written the negative sign we can make 

673 / / the coefficient positive 

674 first TermCoef = qNegate( first TermCoef ); 

675 } 

676 else // The coefficient is +ve 

677 { 

678 if( first == 1 ) //If this is the first term encountered 

679 { 

680 first = 0; // Set to avoid this loop in future 
681 
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682 // Recall that there is no need to write out a plus 

683 // sign for the first term in a polynomial 

684 } 

685 else / / This is not the first term 

686 { 

687 // Separate two terms with a plus sign 

688 back = strConcat( back, " u +u" ); 

689 } 

690 } 
691 

692 if( qIsOne( first TcrmCocf ) != (Bool) 1 ) // // the coefficient is not one 

693 { 

694 written = 1; // Denote that we are going to write the coefficient to the String 

695 if( fMonEqual( firstTermMon, fMonOnc() ) != (Bool) 1 ) //If the lead monomial is not 1 

696 { 

697 // Provide an asterisk to denote that the coefficient is 

698 // multiplied by the monomial 

699 back = strConcat( back, qToStr( first TermCoef ) ); 

700 back = strConcat( back, "*" ); 

701 } 

702 else 

703 { 

704 // As the monomial is 1 there is no need to write the 

705 / / monomial out and we can just write out the coefficient 

706 back = strConcat( back, qToStr( first TcrmCocf ) ); 

707 } 

708 } 
709 

710 // If the lead monomial is not one 

711 if( fMonIsOne( firstTermMon ) != (Bool) 1 ) 

712 { 

713 written = 1; // Denote that we are going to write the monomial to the String 
714 

715 // Go through the term replacing generators as required 

716 while( firstTermMon ) 

717 { 

718 gen = fMonPrefix( firstTermMon, 1 ); // Obtain the first letter 'x' 

719 gcnLength = fMonLeadExp( firstTermMon ); // Obtain 'a' as in x~a 
720 

721 // Calculate the ASCII value ('AAA' = 1, 'AAB' = 2, ...) 

722 match = ASCIIVal( fMonToStr( gen ) ); 

723 multiplier = fMonListNumber( match, originalGcnerators ); // Find the original generator 

724 multiplier = fMonPow( multiplier, genLength ); 

725 

726 // Add multiplier onto the String 

727 back = strConcat( back, fMonToStr( multiplier ) ); 

728 

729 // Move the monomial onwards 

730 firstTermMon = fMonSuffix( firstTermMon, fMonLength( firstTermMon ) - genLength ); // Remove ASCII x'a 

731 if( firstTermMon ) back = strConcat( back, "*" ); 

732 } 

733 } 
734 
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735 // If the coefficient is 1 and the monomial is 1 and nothing 

736 // has yet been written about this term, write "1" to the String 

737 // (This is to catch the case where the term is —1) 

738 if( ( qIsOno( first TermCoof ) == (Bool) 1 ) 

739 && ( fMonIsOne( firstTermMon ) == (Bool) 1 ) 

740 && ( written == ) ) 

741 { 

742 back = strConcat( back, "1" ); 

743 } 
744 

745 oldPoly = fAlgRcductum( oldPoly ); // Get ready to look at the next term 

746 } 
747 

748 return back; 

749 } 
750 

751 /* 

752 * Function Name: alphabetOptimise 

753 * 

754 * Overview: Adjusts the original generator order (1st arg) according to 

755 * frequency of generators in 2nd arg 

756 * 

757 * Detail: Given an FMonList _oldGens_ storing the given generator 

758 * order, this function optimises this order according to the 

759 * frequency of the generators in the polynomial list _polys_. 

760 * More specifically, the most frequently occurring generator 

761 * is set to be the smallest generator, the second most frequently 

762 * occurring generator is set to be the second smallest generator, ... 

763 * For the reasoning behind this optimisation, see a paper called 

764 * "A case where choosing a product order makes the 

765 * calculations of a Groebner basis much faster" by 

766 * Freyja Hreinsdottir (Journal of Symbolic Computation). 

767 * 

768 * Note: This function is designed to be used before the 

769 * generators and polynomials are converted to ASCII order. 

770 * 

771 * External variables needed: int pi; 

772 * 

773 */ 

774 FMonList 

775 alphabctOptimise( oldGens, polys ) 

776 FMonList oldGens; 

777 FAlgList polys; 

778 { 

779 ULong i, j, IcttcrLcngth, size = fMonListLcngth( oldGens ), scorcs[sizc] ; 

780 FMon monomial, letter, theLetters [size] ; 

781 FAlg poly; 

782 FMonList ncwGens = fMonListNul; 

783 

784 if( pi > ) 

785 { 

786 printf("01d u 0rdering u = u "); 

787 fMonListDisplayOrder( oldGens ); 
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788 printf("\n"); 

789 } 
790 

791 // Set up arrays 

792 for( i = 0; i < size; i++ ) 

793 { 

794 theLetters[i] = oldGcns — > first; // Transfer generator to array 

795 oldGcns = oldGcns — > rest; 

796 scores[i] = 0; // Initialise scores 

797 } 
798 

799 // Analyse the generators found in each polynomial 

800 while( polys ) 

801 { 

802 poly = polys — > first; // Extract a polynomial 

803 if( pi > 2 ) printf("Counting u generators u in u poly u y,s\ii", fAlgToStr( poly ) ); 

804 polys = polys — > rest; 

805 

806 while( poly ) // For each term in the polynomial 

807 { 

808 monomial = fAlgLcadMonom( poly ); // Extract the lead monomial 

809 poly = fAlgReductum( poly ); 
810 

811 while( fMonIsOne( monomial ) != (Bool) 1 ) 

812 { 

813 letter = fMonPrefix( monomial, 1 ); // Take the first letter 'x' 

814 letterLength = fMonLeadExp( monomial ); // Find the exponent 'a' as in x'a 

815 j = 0; 

816 while( j < size ) // Locate the letter in the generator array 

817 { 

818 if( fMonEqual( letter, theLetters [j] ) == (Bool) 1 ) 

819 { 

820 // Match found, increase scores appropriately 

821 scores[j] = scores[j] + letterLength; 

822 j = size; // Shortcut search 

823 } 

824 elsej++; 

825 } 

826 monomial = fMonSuffix( monomial, fMonLength( monomial ) — letterLength ); // Lose x'a from old monomial 

827 } 

828 } 

829 } 
830 

831 if( pi > ) // Provide some information on screen 

832 { 

833 printf("Frequencies u = u "); 

834 for( i = 0; i < size: i++ ) 

835 { 

836 printf ( "'/,u , u " , scores [size— 1— i] ); 

837 } 

838 printf("\n"); 

839 } 
840 
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841 // Sort scores by a quicksort algorithm, adjusting the generators as we go along 

842 alphabet ArrayQuickSort( scores, theLetters, 0, size— 1 ); 

843 

844 // Build up new alphabet 

845 for( i = 1; i <= size; i++ ) 

846 newGens = fMonListPush( theLetters [size— i], newGens ); 

847 

848 if( pi > ) 

849 { 

850 printf("New u Ordering u = u "); 

851 fMonListDisplayOrder( newGens ); 

852 printf("\n"); 

853 } 
854 

855 // Return the sorted alphabet list 

856 return newGens; 

857 } 

858 

859 /* 

860 * ================================= 

861 * Polynomial Manipulation Functions 

862 * ================================= 

863 */ 
864 

865 /* 

866 * Function Name: fMonDiv 

867 * 

868 * Overview: Returns all possible ways that 2nd arg divides 1st arg; 

869 * 3rd arg = is division possible ? 

870 * 

871 * Detail: Given two FMons _a_ and this function returns all possible 

872 * ways that _6_ divides _o_ in the form of an FMonPairList. The third 

873 * parameter -flag_ records whether or not (true/false) any divisions 

874 * are possible. For example, if t = abdababc and b = ab, then the 

875 * output FMonPairList is ((abdab, c), (abd, abc), (1, dababc)) and we 

876 * set -flag_ = true. 

877 * 

878 * External variables needed: int pi; 

879 * 

880 */ 

881 FMonPairList 

882 fMonDiv( t, b, flag ) 

883 FMon t, b; 

884 Short *flag; 

885 { 

886 ULong i, tl, bl, diff; 

887 FMonPairList back = ( FMonPairList )theAllocFun( sizeof( *back ) ); 

888 

889 back = fMonPairListNul; // Initialise the output list 
890 

891 *flag = false; // Assume there are no possible divisions to begin with 

892 tl = fMonLength( t ); 

893 bl = fMonLength( b ); 
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89 1 

895 if( tl < bl ) // There can be no possible divisions if \t\ < \b\ 

896 { 

897 return back; 

898 } 

899 else // Me must now consider each possibility in turn 

900 { 

901 diff = tl— bl; 

902 for( i = 0; i <= diff; i++ ) // Working left to right 

903 { 

904 //I s the subword of t of length \b\ starting at position i+1 equal to b? 

905 if( fMonEqual( b, fMonSubWordLen ( t, i+1, bl ) ) == (Bool) 1 ) 

906 { 

907 // Match found; push the left and right factors onto the output list 

908 back = fMonPairListPuah( fMonPrefix( t, i ), fMonSuffix( t, tl— bl— i ), back ); 

909 if( pi > 6 ) printf("i u =u7.i:u , /.Su=u , /.s*(%s)*y.s\n", i+1, fMonToStr( t ), 

910 fMonToStr( fMonPrcfix( t, i ) ), fMonToStr( b ), fMonToStr( fMonSuffix( t, tl— bl— i ) ) ); 

911 } 

912 } 

913 } 
914 

915 // // we found some matches set -flag_ to be true 

916 if( back ) *flag = true; 

917 return back; // Return the output list 



918 } 
919 

920 /* 

921 * Function Name: fMonDivFirst 

922 * 

923 * Overview: Returns the first way that 2nd arg divides 1st arg; 

924 * 3rd arg = is division possible ? 

925 * 

926 * Detail: Given two FMons _a_ and this function returns the first 

927 * way that _6_ divides _a_ in the form of an FMonP airList. The third 

928 * parameter -flag_ records whether or not (true/false) any divisions 

929 * are possible. For example, if t = abdababc and b = ab, then the 

930 * output FMonP airList is ((1, dababc)) and we 

931 * set -flag_ = true. 

932 * 

933 * External variables needed: int pi; 

934 * 

935 */ 

936 FMonPairList 

937 fMonDivFirst ( t, b, flag ) 

938 FMon t, b; 

939 Short *flag; 

940 { 

941 ULong i, tl, bl, diff; 

942 FMonPairList back = ( FMonPairList )theAllocFun( sizeof( *back )); 

943 

944 back = fMonPairListNul; // Initialise the output list 
945 

946 *flag = false; // Assume there are no possible divisions to begin with 
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947 tl = fMonLcngth( t ); 

948 bl = fMonLength( b ); 

949 

950 if( tl < bl ) // There can be no possible divisions if \t\ < \b\ 

951 { 

952 return back; 

953 } 

954 else // Me must now consider each possibility in turn 

955 { 

956 cliff = tl— bl; 

957 for( i = 0; i <= diff; i++ ) // Working left to right 

958 { 

959 //I s the subword of t of length \b\ starting at position i+1 equal to b? 
if( fMonEqual( b, fMonSubWordLen( t, i+1, bl ) ) == (Bool) 1 ) 

961 { 

962 // Match found; push the left and right factors onto the output list and return it 

963 back = fMonPairListPush( fMonPrefix( t, i ), fMonSuffix( t, tl— bl— i ), back ); 

964 if( pi > 6 ) printf("iu=u7.i:u'/.Su=u'/.s*(%s)*y.s\n", i+1, fMonToStr( t ), 

965 fMonToStr( fMonPrefix( t, i ) ), fMonToStr( b ), fMonToStr( fMonSuffix( t, tl— bl— i ) ) ); 

966 *flag = true; // Indicate that we have found a match 

967 return back; 

968 } 

969 } 

970 } 
971 

972 return back; // Return the empty output list — no matches were found 



973 } 
974 

975 /* 

976 * Function Name: fMonOverlaps 

977 * 

978 * Overview: Finds all possible overlaps of 2 FMons 

979 * 

980 * Detail: Given two FMons, this function returns all 

981 * possible ways in which the two monomials overlap. 

982 * For example, if _<x_ = abcabc and _f>_ = cab, then 

983 * the output FMonPairList is 

984 * ((1, 1), (ab, c), (c, 1), (1, cabc), (1, ab), (abcab, 1)) 

985 * as in 

986 * 1* (abcabc)* 1 = ab*(cab)*c, 

987 * c*(abcabc)*l = l*(cab)*cabc, 

988 * l*(abcabc)*ab = abcab* (cab)* 1. 

989 * 

990 * External variables needed: int pi; 

991 * 

992 */ 

993 FMonPairList 

994 fMonOverlaps ( a, b ) 

995 FMon a, b; 

996 { 

997 FMon still, move; 

998 Short type; 

999 ULong la, lb, Is, lm, i; 
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1000 FMonPairList back = ( FMonPairList )theAllocFun( sizeof( *back )); 
1001 

1002 back = fMonPairListNul; // Initialise the output list 
1003 

1004 la = fMonLength( a ); 

1005 lb = fMonLength( b ); 
1006 



1007 // Check for the trivial monomial 

1008 if( ( la == ) 1 1 ( lb == ) ) return back; 
1009 

1010 // Determine which monomial has the greater length 

1011 if( la < lb ) 

1012 { 

1013 still = b; Is = lb; 

1014 move = a; lm = la; 

1015 type = 1; // Remember that \a\ < |6| 

1016 } 

1017 else 

1018 { 

1019 still = a; Is = la; 

1020 move = b; lm = lb; 

1021 type = 2; // Remember that \a\ >= \b\ 

1022 } 
1023 

1024 // First deal with prefix and suffix overlaps 

1025 for( i = 1; i <= lm-1; i++ ) 

1026 { 

1027 // PREFIX overlap — is a prefix of still equal to a suffix of move? 

1028 if( fMonEqual( fMonPrefix( still, i ), fMonSuffix( move, i ) ) == (Bool) 1 ) 

1029 { 

1030 if( type == 1 ) // still = b, move = a 

1031 { 

1032 // Need to multiply a on the right and b on the left to construct the overlap 

1033 back = fMonPairListPush( fMonPrefix( a, la-i ), fMonOneQ, back ); // 6 

1034 back = fMonPairListPush( fMonOne(), fMonSuffix( b, lb— i ), back ); // a 

1035 if( pi > 5 ) printf("Left u Dverlap u Found u f or u (7,s, u '/,s) : u ('/,s , u '/ s , u °/,s , u '/,s) \n", 

1036 fMonToStr( a ), fMonToStr( b ), fMonToStr( fMonOnc() ), 

1037 fMonToStr( fMonSuffix( b, lb-i ) ), fMonToStr( fMonPrefix( a, la-i ) ), 

1038 fMonToStr( fMonOne() ) ); 

1039 } 

1040 else // still = a, move = b 

1041 { 

1042 // Need to multiply a on the left and b on the right to construct the overlap 

1043 back = fMonPairListPush( fMonOne(), fMonSuffix( a, la-i ), back ); // b 
back = fMonPairListPush( fMonPrefix( b, lb-i ), fMonOne(), back ); // a 

1045 if( pi > 5 ) printf("Left u Qverlap u Found u f or u ('/,s, u '/,s) : u (7.s ,u%s , u 7,s , u °/,s) \n", 

fMonToStr( a ), fMonToStr( b ), fMonToStr( fMonPrcfix( b, lb-i ) ), 

1047 flVIonToStr( fMonOne() ), fMonToStr( fMonOneQ ), 

1048 fMonToStr( fMonSuffix( a, la-i ) ) ); 

1049 } 

1050 } 
1051 

1052 // SUFFIX overlap — is a suffix of still equal to a prefix of move? 
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1053 if( fMonEqual( fMonSuffix( still, i ), fMonPrcfix( move, i ) ) == (Bool) 1 ) 

1054 { 

1055 if( type == 1 ) // still = b, move = a 

1056 { 

1057 // Need to multiply a on the left and b on the right to construct the overlap 

1058 back = fMonPairListPush( fMonOne(), fMonSuffix( a, la-i ), back ); // b 

1059 back = fMonPairListPush( fMonPrefix( b, lb— i ), fMonOne(), back ); // a 

1060 if( pi > 5 ) printf("Right u Overlap u Found u f or u ('/,s, u y.s) : u (7.s , u 7.s , u 7,s , u 7oS)\n" , 

1061 fMonToStr( a ), fMonToStr( b ), fMonToStr( fMonPrefix( b, lb-i ) ), 

1062 fMonToStr( fMonOne() ), fMonToStr( fMonOnc() ), 

1063 fMonToStr( fMonSuffix( a, la-i ) ) ); 

1064 } 

1065 else // still = a, move = b 

1066 { 

1067 // Need to multiply a on the right and b on the left to construct the overlap 

1068 back = fMonPairListPush( fMonPrefix( a, la-i ), fMonOne(), back ); // b 

1069 back = fMonPairListPush( fMonOnc(), fMonSuffix( b, lb-i ), back ); // a 

if( pi > 5 ) printf("Right u Overlap u Found u for u C/,s, u '/,s) : u ('/.s, u '/,s, u y,s, u '/.s)\n", 

1071 fMonToStr( a ), fMonToStr( b ), fMonToStr( fMonOncQ ), 

1072 fMonToStr( fMonSuffix( b, lb-i ) ), fMonToStr( fMonPrefix( a, la-i ) ), 

1073 fMonToStr( fMonOnc() ) ); 

1074 } 

1075 } 

1076 } 
1077 

1078 // Subword overlaps 

1079 for( i = 1; i <= ls-lm+1; i++ ) 

1080 { 

1081 if( fMonEqual( move, fMonSubWordLen( still, i, lm ) ) == (Bool) 1 ) 

1082 { 

1083 if( type == 1 ) // still = b, move = a 

1084 { 

1085 // Need to multiply a on the left and right to construct the overlap 

1086 back = fMonPairListPush( fMonOne(), fMonOne(), back ); // b 

1087 back = fMonPairListPush( fMonPrefix( b, i-1 ), fMonSuffix( b, lb+l-i-lm ), back ); // a 

1088 if( pi > 5 ) printf("Middle u Overlap u Found u f or u C/,s , u '/ s) : u (°/,s , u 7,s , u '/ s , u °/,s)\n", 

1089 fMonToStr( a ), fMonToStr( b ), fMonToStr( fMonPrefix( b, i-1 ) ), 

1090 fMonToStr( fMonSuffix( b, lb+l-i-lm ) ), fMonToStr( fMonOne() ), 

1091 fMonToStr( fMonOne() ) ); 

1092 } 

1093 else // still = a, move = b 

1094 { 

1095 // Need to multiply b on the left and right to construct the overlap 

back = fMonPairListPush( fMonPrefix( a, i-1 ), fMonSuffix( a, la+l-i-lm ), back ); // b 

1097 back = fMonPairListPush( fMonOne(), fMonOne(), back ); // a 

1098 if( pi > 5 ) printf("Middle u Overlap u Found u f or u C/,s , u '/ s) : u (7,s , u°/.s , u '/oS , u 7oS)\n", 

1099 fMonToStr( a ), fMonToStr( b ), fMonToStr( £MonOne() ), 

fMonToStr( fMonOne() ), fMonToStr( fMonPrefix( a, i-1 ) ), 

1101 fMonToStr( fMonSuffix( a, la+l-i-lm ) ) ); 

1102 } 

1103 } 

1104 } 
1105 
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1106 return back; 

1107 } 
1108 

1109 /* 

1110 * Function Name: deglnitial 

1111 * 

1112 * Overview: Returns the degree— based initial of a given polynomial 

1113 * 

1114 * Detail: Given a polynomial Snput_, this function returns the 

1115 * initial of that polynomial w.r.t. degree. In other words, 

1116 * all terms of highest degree are returned. 

1117 * 

1118 */ 

1119 FAlg 

1120 deglnitial ( input ) 

1121 FAlg input; 

1122 { 



1123 FAlg output = fAlgZeroQ; 

1124 ULong max = 0, next; 
1125 

1126 // If the input is trivial, the output is trivial 

1127 if( linput ) return input; 
1128 

1129 // For each term in the input polynomial 

1130 while( input ) 

1131 { 

1132 // Find the degree of the next term in the polynomial 

1133 next = fMonLcngth( fAlgLeadMonom( input ) ); 
1134 

1135 //U w e find a term of higher degree 

1136 if( next > max ) 

1137 { 

1138 // Set a new maximum 

1139 max = next; 

1140 // Start building up the output polynomial again 

1141 output = fAlgLeadTerm( input ); 

1142 } 

1143 // Else if we find a term of equal maximum degree 

1144 else if( next == max ) 

1145 { 

1146 // Add the term to the output polynomial 

output = fAlgPlus( output, fAlgLeadTerm( input ) ); 

1148 } 
1149 

1150 // Get ready to look at the next term of the input polynomial 

1151 input = fAlgReductum( input ); 

1152 } 
1153 

1154 // Return the initial 

1155 return output; 



1156 } 
1157 
1158 /* 
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1159 * Function Name: fMonReverse 

1160 * 

1161 * Overview: Reverses a monomial 

1162 * 

1163 * Detail: Given a monomial m = x_lx_2...x_n, this 

1164 * function returns the monomial m' = xjnx-{n— 1} . . .xjlx_l . 

1165 * 

1166 */ 

1167 FMon 

1168 fMonReverse( input ) 

1169 FMon input; 

1170 { 

1171 FMon output = fMonOne(); 
1172 

1173 // For each variable in the input monomial 

1174 while( input ) 

1175 { 

1176 output = fMonTimcs( fMonPrefix( input, 1 ), output ); 

1177 input = fMonRest( input ); 

1178 } 
1179 

1180 // Return the reversed monomial 

1181 return output; 

1182 } 
1183 

1184 /* 

1185 * ======================== 

1186 * Groebner Basis Functions 

1187 * ======================== 

1188 */ 
1189 

1190 /* 

1191 * Function Name: polyReduce 

1192 * 

1193 * Overview: Returns the normal form of a polynomial w.r.t. a list of polynomials 

1194 * 

1195 * Detail: Given an FAlg and an FAlgList, this function 

1196 * divides the FAlg w.r.t. the FAlgList, returning the 

1197 * normal form of the input polynomial w.r.t. the list. 

1198 * 

1199 * External Variables Required: int pi; 

1200 * Global Variables Used: ULong nRed; 

1201 * 

1202 */ 

1203 FAlg 

1204 polyReduce ( poly, list ) 

1205 FAlg poly; 

1206 FAlgList list; 

1207 { 

1208 ULong i, numRulcs = fAlgListLength( list ); 

1209 FAlg back = fAlgZero(), lead, upgrade, LHSA[numRules] ; 

1210 FMon leadMonomial, leadLoopMonomial, LHSM[numRules]; 

1211 FMonPairList factors; 
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1212 Qlnteger IcadQ, IcadLoopQ, lcmQ, LHSQ[numRulcs] ; 

1213 Short flag, toggle; 
1214 

1215 // Convert the input list of polynomials to an array and 

1216 // create arrays of lead monomials and lead coefficients 

1217 for( i = 0; i < numRules; i++ ) 

1218 { 

1219 if( pi > 5 ) printf("Poly u y.u u = u y.s\n", i+1, fAlgToStr( list -> first ) ); 

1220 LHSA[i] = list -> first; 

1221 LHSM[i] = fAlgLeadMonom( list -> first ); 

1222 LHSQ[i] = fAlgLeadCoef( list -> first ); 

1223 list = list -> rest; 

1224 } 
1225 

1226 // We will now recursively reduce every term in the polynomial 

1227 // until no more reductions are possible 

1228 while( fAlgIsZero( poly ) != (Bool) 1 ) 

1229 { 

1230 if( pi > 5 ) printf("Looking u at u Lead u Term u of u '/,s\n", fAlgToStr( poly ) ); 

1231 toggle = 1; // Assume no reductions are possible to begin with 

1232 lead = fAlgLeadTerm( poly ); 

1233 leadMonomial = fAlgLcadMonom( lead ); 

1234 leadQ = fAlgLeadCoef( lead ); 

1235 i = 0; 
1236 

1237 while( i < numRules ) // For each polynomial in the list 

1238 { 

1239 leadLoopMonomial = LHSM[i]; // Pick a test monomial 

1240 flag = false; 

1241 // Does the ith polynomial divide our polynomial? 

1242 factors = fMonDivFirst( leadMonomial, leadLoopMonomial, &flag ); 
1243 

1244 if( flag == true ) // i.e. leadMonomial = factors —> Ift * leadLoopMonomial * factors — > rt 

1245 { 

1246 if( pi > 1 ) nRedH — h; // Increase the number of reductions carried out 

1247 if( pi > 5 ) printf("Found u y„s u = u C/,s) u * u (y,s)u*u('/.s)\ii", fMonToStr( leadMonomial ), 

1248 fMonToStr( factors -> 1ft ), fMonToStr( leadLoopMonomial ), 

1249 fMonToStr( factors -> rt ) ); 

1250 toggle = 0; // Indicate a reduction has been carried out to exit the loop 

1251 leadLoopQ = LHSQ[i]; // Pick the divisor's leading coefficient 

1252 lcmQ = AltLCMQInteger( IcadQ, IcadLoopQ ); // Pick 'nice' cancelling coefficients 
1253 

1254 // Construct poly #i * — 1 * coefficient to get lead terms the same 

1255 upgrade = fAlgTimes( fAlgMonom( qOncQ, factors -> 1ft ), LHSA[i] ); 

upgrade = fAlgTimes( upgrade, fAlgMonom( qNegate( qDivide( lcmQ, leadLoopQ ) ), factors — > rt ) ); 

1257 

1258 // Add in poly * coefficient to cancel off the lead terms 

1259 upgrade = fAlgPlus( upgrade, fAlgScaTimes( qDivide( lcmQ, IcadQ ), poly ) ); 

1260 

1261 // We must also now multiply the current discarded remainder by a factor 

1262 back = fAlgScaTimes( qDividc( lcmQ, IcadQ ), back ); 

1263 poly = upgrade; //In the next iteration, we will be reducing the new polynomial upgrade 

1264 if( pi > 5 ) printf("New u Word u = u y,s; u New u Remainder u = u y,s\n", fAlgToStr( poly ), fAlgToStr( back ) ); 
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1265 } 

1266 if( toggle == 1 ) // The ith polynomial did not divide poly 

1267 i++; 

1268 else //A reduction was carried out, exit the loop 

1269 i = numRules; 

1270 } 
1271 

1272 if( toggle == 1 ) // No reductions were carried out; now look at the next term 

1273 { 

1274 // Add lead term to remainder and reduce the rest of the polynomial 

1275 back = fAlgPlus( back, lead ); 

1276 poly = fAlgReductum( poly ); 

1277 if( pi > 5 ) printf("NewuRemainder u = u , /.s\n", fAlgToStr( poly ) ); 

1278 } 

1279 } 
1280 

1281 return back; // Return the reduced and simplified polynomial 



1282 } 
1283 

1284 /* 

1285 * Function Name: minimalGB 

1286 * 

1287 * Overview: Minimises a given Groebner Basis 

1288 * 

1289 * Detail: Given an input Groebner Basis, this function 

1290 * will eliminate from the basis any polynomials whose 

1291 * lead monomials are multiples of some other lead 

1292 * monomial. 

1293 * 

1294 * External variables required: int pi; 

1295 * 

1296 */ 

1297 FAlgList 

1298 minimalGB ( G ) 

1299 FAlgList G; 

1300 { 

1301 FAlgList GJVlinimal = fAlgListNul, G.Copy = fAlgListCopy( G ); 

1302 ULong i, p, length = fAlgListLength( G ); 

1303 FMon checker [length]; 

1304 FMonPairList sink; 

1305 Short flag, blackList [length] ; 
1306 



1307 // Create an array of lead monomials and initialise blackList 

1308 // which will store which monomials are to be deleted from the basis 

1309 for( i = 0; i < length; i++ ) 

1310 { 

1311 blackList [i] = 0; 

1312 checker[i] = fAlgLeadMonom( G.Copy -> first ); 

1313 G.Copy = G.Copy -> rest; 

1314 } 
1315 

1316 // Test divisibility of each monomial w.r.t all other monomials 

1317 for( i = 0; i < length; i++ ) 
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1318 { 

1319 p = 0; 

1320 while( p < length ) 

1321 { 

1322 // If p is different from i and p has not yet been 'deleted' from the basis 

1323 if( ( p != i ) && ( blacklist [p] != 1 ) ) 

1324 { 

1325 flag = false; 

1326 sink = fMonDiv( checker [i], checker [p], &flag ); 

1327 if( flag == true ) // poly i's lead term is a multiple of poly p's lead term 

1328 { 

1329 blackList[i] = 1; // Ensure polynomial i is deleted later on 

1330 break; // Exit from the while loop 

1331 } 

1332 } 

1333 p++; 

1334 } 

1335 } 
1336 

1337 // Push onto the output list elements not blacklisted 

1338 for( i = 0; i < length; i++ ) 

1339 { 

1340 if( blacklist [i] == ) // Not to be deleted 

1341 { 

1342 G-Minimal = fAlgListPush( G -> first, GJVlinimal ); 

1343 } 

1344 G = G -> rest; // Advance the list 

1345 } 
1346 

1347 // As it was constructed in reverse, we must reverse G-Minimal before returning it 

1348 return fAlgListFXRev( G-Minimal ); 



1349 } 
1350 

1351 /* 

1352 * Function Name: reducedGB 

1353 * 

1354 * Overview: Reduces each member of a Groebner Basis w.r.t. all other members 

1355 * 

1356 * Detail: Given a list of polynomials , this function takes each 

1357 * member of the list in turn, reducing the polynomial w.r.t. all 

1358 * other members of the basis. 

1359 * 

1360 * Note: This function does not check whether a polynomial reduces to 

1361 * zero or not (we usually want to delete polynomials that reduce to 

1362 * zero from our basis) — it is assumed that no member of the basis will 

1363 * reduce to zero (which will be the case if we start with a minimal Groebner 

1364 * Basis). Also, at the end of the algorithm, the total number of reductions 

1365 * carried out during the *whole program* is reported if the print level 

1366 * (pi) exceeds 1. 

1367 * 

1368 * External variables required: int pi; 

1369 * 

1370 */ 
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1371 FAlgList 

1372 reducedGB( GBasis ) 

1373 FAlgList GBasis; 

1374 { 

1375 FAlg poly; 

1376 FAlgList back = fAlgListNul, olcLG, new.G; 

1377 ULong i, sizcOflnput = fAlgListLcngth( GBasis ); 

1378 

1379 if( sizeOflnput > 1 ) // If \ GBasis\ > 1 

1380 { 

1381 i = 0; // i keeps track of which polynomial we are looking at 
1382 

1383 // Start by making a copy of G for processing 

1384 olcLG = fAlgListCopy( GBasis ); 
1385 

1386 while( olcLG ) // For each polynomial 

1387 { 

1388 i++; 

1389 poly = old_G — > first; // Extract a polynomial 

1390 olcLG = olcLG — > rest; // Advance the list 

if( pi > 2 ) printf( "\nLooking u at u element u p u = u y,s u of u basis\n" , fAlgToStr( poly ) ); 

1392 

1393 // Construct basis without 'poly' by appending 

1394 // the remaining polynomials to the reduced polynomials 

1395 ncw_G = f AlgList Append ( back, old_G ); 
1396 

1397 poly = polyReduce( poly, new_G ); // Reduce poly w.r.t. new_G 

1398 poly = findGCD( poly ); // Divide out by the CCD 
1399 

if( pi > 2 ) printf("Reduced u p u to u y,s\n", fAlgToStr( poly ) ); 

1401 // Add the reduced polynomial to the list 

1402 back = fAlgListAppend( back, fAlgListSingle( poly ) ); 

1403 } 

1404 } 

1405 else // else \ GBasis\ = 1 and there is no point in doing any reduction 

1406 { 

1407 return GBasis; 

1408 } 
1409 

1410 // Report on the total number of reductions carried out during the *whole program* 

1411 if( pi > 1 ) printf("Number u of u Reductions u Carried u out u = u '/.u\ii", nRcd ); 
1412 

1413 return back; 

1414 } 
1415 

1416 /* 

1417 * Function Name: idealM ember ship Problem 

1418 * 

1419 * Overview: Tests whether a given FAlg reduces to using the given FAlgList 

1420 * 

1421 * Detail: Given a list of polynomials , this function tests whether 

1422 * a given polynomial reduces to zero using this list. This is 

1423 * done using a modified version of the function polyReduce in that 
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1424 * the moment an irreducible monomial is encountered, the algorithm 

1425 * terminates with the knowledge that the polynomial will not 

1426 * reduce to 0. 

1427 * 

1428 * External variables required: int pi; 

1429 * 

1430 */ 

1431 Bool 

1432 idealMembershipProblem( poly, list ) 

1433 FAlg poly; 

1434 FAlgList list; 

1435 { 

1436 ULong i, numRulcs = fAlgListLcngth( list ); 

1437 FAlg back = fAlgZcro(), lead, upgrade, LHSA[numRules]; 

1438 FMon leadMonomial, leadLoopMonomial, LHSM[numRules]; 

1439 FMonPairList factors; 

1440 Qlnteger IcadQ, IcadLoopQ, lcmQ, LHSQ [numRulcs] ; 

1441 Short flag, toggle; 
1442 



1443 / / Convert the input list of polynomials to an array and 

1444 // create arrays of lead monomials and lead coefficients 

1445 for( i = 0; i < numRules; i++ ) 

1446 { 

1447 if( pi > 5 ) printf("Poly u y.u u = u '/.s\n", i+1, fAlgToStr( list -> first ) ); 

1448 LHSA[i] = list -> first; 

1449 LHSM[i] = fAlgLeadMonom( list -> first ); 

1450 LHSQ[i] = fAlgLeadCoef( list -> first ); 

1451 list = list — > rest; 

1452 } 
1453 

1454 // We will now recursively reduce every term in the polynomial 

1455 // until an irreducible term is encountered or no more reductions are possible 

1456 while( fAlgIsZero( poly ) != (Bool) 1 ) 

1457 { 

1458 if( pi > 5 ) printf("Looking u at u Lead u Term u of u '/,s\n", fAlgToStr( poly ) ); 

1459 toggle = 1; // Assume no reductions are possible to begin with 

1460 lead = fAlgLeadTerm( poly ); 

1461 leadMonomial = fAlgLeadMonom( lead ); 

1462 leadQ = fAlgLeadCoef( lead ); 

1463 i = 0; 
1464 

1465 while( i < numRules ) // For each polynomial in the list 

1466 { 

1467 leadLoopMonomial = LHSM[i]; // Pick a test monomial 

1468 flag = false; 

1469 // Does the ith polynomial divide our polynomial? 

1470 factors = fMonDivFirst( leadMonomial, leadLoopMonomial, &flag ); 
1471 

1472 if( flag == true ) // i.e. leadMonomial = factors — > Ift * leadLoopMonomial * factors — > rt 

1473 { 

if( pi > 5 ) prmtf("Foundu'/.s u =uC/.s)u*uC/.s)u*uC'/.s)\ii", fMonToStr( leadMonomial ), 

1475 fMonToStr( factors -> 1ft ), fMonToStr( leadLoopMonomial ), 

1476 fMonToStr( factors -> rt ) ); 
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1477 toggle = 0; // Indicate a reduction has been carried out to exit the loop 

1478 leadLoopQ = LHSQ[i]; // Pick the divisor's leading coefficient 

1479 lcmQ = AltLCMQInteger( leadQ, leadLoopQ ); // Pick 'nice' cancelling coefficients 
1480 

1481 // Construct poly #i * — 1 * coefficient to get lead terms the same 

1482 upgrade = fAlgTimes( fAlgMonom( qOne(), factors -> 1ft ), LHSA[i] ); 

upgrade = fAlgTimes( upgrade, fAlgMonom( qNegate( qDivide( lcmQ, leadLoopQ ) ), factors — > rt ) ); 

1484 

1485 // Add in poly * coefficient to cancel off the lead terms 

1486 upgrade = fAlgPlus( upgrade, fAlgScaTimes( qDivide( lcmQ, leadQ ), poly ) ); 
1487 

1488 // We must also now multiply the current discarded remainder by a factor 

1489 back = fAlgScaTimes( qDivide( lcmQ, leadQ ), back ); 

1490 poly = upgrade; //In the next iteration, we will be reducing the new polynomial upgrade 

if( pi > 5 ) printf("New u Word u =u'/.s;uNew u Remainder u = u y.s\n", fAlgToStr( poly ), fAlgToStr( back ) ); 

1492 } 

1493 if( toggle == 1 ) // The ith polynomial did not divide poly 

1494 i++; 

1495 else //A reduction was carried out, exit the loop 

1496 i = numRules; 

1497 } 
1498 

1499 /* 

1500 * If toggle == 1, this means that no rule simplified the lead term of 'poly' 

1501 * so that we have encountered an irreducible monomial. In this case, the polynomial 

1502 * we are reducing will not reduce to zero, so we can now return 0. 

1503 */ 

1504 if( toggle == 1 ) 

1505 return (Bool) 0; 

1506 } 
1507 

1508 // If we reach here, the polynomial reduced to so we return a positive result. 

1509 return (Bool) 1; 



1510 } 
1511 

1512 /* 

1513 * =========== 

1514 * End of File 

1515 * =========== 

1516 */ 

B.2.8 list _funct ions, h 

1 /* 

2 * File: list Junctions .h 

3 * Author: Gareth Evans 

4 * Last Modified: 9th August 2005 

5 */ 
6 

7 // Initialise file definition 

8 # ifndef LIST.FUNCTIONS.HDR 

9 # define LIST.FUNCTIONS.HDR 
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10 

11 // Include MSSRC Libraries 
2 # include <fralg.h> 

13 

14 // 

15 // External Variables Required 

16 // 
17 

18 extern int pi; // Holds the "Print Level" 
19 

20 // 

21 // Display Functions 

22 // 
23 

2-1 // Displays an FMonList in the format ll\n I2\n I3\n... 

25 void fMonListDisplay( FMonList ); 

26 // Displays an FMonList in the format 11 > 12 > 13... 

27 void fMonListDisplayOrder( FMonList ); 

28 // Displays an FMonPairList in the format (11, I2)\n (13, H)\n... 
2!) void fMonPairListMultDisplay( FMonPairList ); 

30 // Displays an FAlgList in the format pl\n p2\n p3\n... 

31 void fAlgListDisplay( FAlgList ); 

32 

33 // 

34 // List Extraction Functions 

35 // 
36 

37 // Returns the ith member of an FMonList (i = 1st arg) 

38 FMon fMonListNumber( ULong, FMonList ); 

39 // Returns the ith member of an FMonPairList (i = 1st arg) 
10 FMonPair fMonPairListNumber( ULong, FMonPairList ); 
41 // Returns the ith member of an FAlgList (i = 1st arg) 

12 FAlg fAlgListNumber( ULong, FAlgList ); 
43 

44 // 

45 // List Membership Functions 

46 // 
47 

48 // Does the FAlg appear in the FAlgList? (1 = yes) 

49 Bool fAlgListIsMember( FAlg, FAlgList ); 

50 

51 // 

52 // List Position Functions 

53 // 
54 

55 // Gives position of 1st appearance of FMon in FMonList 

56 ULong fMonListPosition( FMon, FMonList ); 

57 // Gives position of 1st appearance of FAlg in FAlgList 

58 ULong fAlgListPosition( FAlg, FAlgList ); 

59 

60 // 

61 // Sorting Functions 

62 // 
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63 

64 // Swaps 2 elements in arrays of U Longs and FMons 

65 void alphabet Array Swap( ULong[], FMon[], ULong, ULong ); 

66 // Sorts an array of U Longs (largest first) and applies the same changes to the FMon array 

67 void alphabetArrayQuickSort( ULong[], FMon[], ULong, ULong ); 

68 // Swaps 2 elements in arrays of FAlgs and FMons 

69 void fAlgArraySwap( FAlg[], FMon[], ULong, ULong ); 

70 // Sorts an array of FAlgs using DegRevLex (largest first) 

71 void fAlgArrayQuickSortDRL( FAlg[], FMon[], ULong, ULong ); 
72 

73 // Sorts an array of FAlgs using theOrdFun (largest first) 

74 void fAlgArrayQuickSortOrd( FAlg[], FMon[], ULong, ULong ); 

75 // Sorts an FAlgList (largest first) 

76 FAlgList fAlgListSort( FAlgList, int ); 

77 // Swaps 2 elements in arrays of FMons, ULongs and ULongs 

78 void multiplicativcArraySwap( FMon[], ULong[], ULong[], ULong, ULong ); 

79 // Sorts input data to OverlapDiv w.r.t. DegRevLex (largest first) 

80 void multiplicativcQuickSort( FMon[], ULong[], ULong[], ULong, ULong ); 

81 

82 // 

83 // Insertion Sort Functions 

84 // 
85 

86 // Insert into list according to DegRevLex 

87 FAlgList fAlgListDegRevLexPush( FAlg, FAlgList ); 

88 // As above, but also returns the insertion position 

89 FAlgList fAlgListDegRevLexPushPosition( FAlg, FAlgList, ULong * ); 

90 // Insert into list according to the current monomial ordering 

91 FAlgList fAlgListNormalPush( FAlg, FAlgList ); 

92 // As above, but also returns the insertion position 

93 FAlgList fAlgListNormalPushPosition( FAlg, FAlgList, ULong * ); 

94 

95 // 

96 // Deletion Functions 

97 // 
98 

99 // Removes the (1st org )—th element from the list 

100 FMonList fMonListRemoveNumber( ULong, FMonList ); 

101 // Removes the (1st arg)—th element from the list 

102 FMonPairList fMonPairListRemoveNumber( ULong, FMonPairList ); 

103 // Removes the (1st arg)—th element from the list 

101 FAlgList fAlgListRemoveNumber( ULong, FAlgList ); 

105 

106 // 

107 // Normalising Functions 

108 // 
109 

110 // Removes any fractions found in the FAlgList by scalar multiplication 

111 FAlgList fAlgListRcmovcFractions( FAlgList ); 
112 

113 # endif // LIST.FUNCTIONS.HDR 
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B.2.9 list_functions.c 

1 /* 

2 * File: list Junctions, c 

3 * Author: Gareth Evans, Chris Wensley 

4 * Last Modified: 9th August 2005 

5 */ 
6 

7 /* 

8 * ================= 

9 * Display Functions 

10 * ================= 

11 */ 
12 

13 /* 

14 * Function Name: fMonListDisplay 

15 * 

16 * Overview: Displays an FMonList in the format ll\n I2\n I3\n... 

17 * 

18 * Detail: Given an FMonList, this function displays the 

19 * elements of the list on screen in such a way that if the 

20 * list is (for example) L = (11, 12, 13, 14), the output is 

21 * 

22 * 11 

23 * 12 

24 * 13 

25 * U 

26 * 

27 */ 

28 void 

29 fMonListDisplay( L ) 

30 FMonList L; 

31 { 

32 while( L ) 

33 { 

34 printf( "%s\n", fMonToStr( L -> first ) ); 

35 L = L — > rest; 

36 } 

37 } 

38 

39 /* 

40 * Function Name: fM onListDisplay Order 

41 * 

42 * Overview: Displays an FMonList in the format 11 < 12 < 13... 

43 * 

44 * Detail: Given an FMonList, this function displays the 

45 * elements of the list on screen in such a way that if the 

46 * list is (for example) L = (11, 12, 13, 14), the output is 

47 * 

48 * 14 > 13 > 12> 11 

49 * 

50 * External variables required: int pi; 

51 * 
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52 */ 

53 void 

5 1 fMonListDisplayOrder( L ) 

55 FMonList L; 

56 { 

57 ULong i = 1, j = fMonListLength( L ); 

58 

59 L = fMonListRev( L ); 

60 

61 while( L ) 

62 { 

63 if( pi >= 1 ) 

printf( "%s", fMonToStr( L — > first ) ); 

65 if( pi > 1 ) 

66 { 

67 printf( " u (7.s)", ASCIIStr( j + 1 - i ) ); 

68 i++; 

69 } 

70 L = L -> rest; 

71 if( L ) // // there is another element left provide a " > 

72 { 

73 printf( " u > u " ); 

74 } 

75 } 

76 } 
77 

78 /* 



79 




Function Name: fMonPairListMultDisplay 


80 


* 




81 


* 


Overview: Displays an FMonPairList in the format (11, I2)\n (13, I4)\n... 


82 


* 




83 


* 


Detail: Given an FMonPairList, this function displays the 


84 


* 


elements of the list on screen in such a way that if the 


85 


* 


list is (for example) L = ((11, 12), (13, 14), (15, 16)), the output is 


86 


* 




87 




(11, 12) 


88 


* 


(13, 14) 


89 


* 


(15, 16) 


90 


* 




91 


* 


Remark: The "Mult" stands for multiplicative — this function is primarily 


92 


* 


used to display (Left, Right) multiplicative variables. 


93 


V 



94 void 

95 fMonPairListMultDisplay( L ) 

96 FMonPairList L; 

97 { 

98 while( L ) 

99 { 

printf( "C/.s, u , /.s)\n", fMonToStr( L -> 1ft ), fMonToStr( L — > rt ) ); 

101 L = L -> rest; 

102 } 

103 } 
104 
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105 /* 

106 * Function Name: fAlgListDisplay 

107 * 

108 * Overview: Displays an FAlgList in the format pl\n p2\n p3\n... 

109 * 

110 * Detail: Given an FAlgList, this function displays the 

111 * elements of the list on screen in such a way that if the 

112 * list is (for example) L = (pi, p2, p3, p4), the output is 

113 * 

114 * pi 

115 * p2 

116 * p3 

117 * p4 

118 * 

119 */ 

120 void 

121 fAlgListDisplay ( L ) 

122 FAlgList L; 

123 { 

124 while( L ) 

125 { 

126 printf( "%s\n", fAlgToStr( L -> first ) ); 

127 L = L — > rest; 

128 } 

129 } 
130 

131 /* 

132 * ========================= 

133 * List Extraction Functions 

134 * ========================= 

135 */ 
136 

137 /* 

138 * Function Name: fMonListN umber 

139 * 

140 * Overview: Returns the ith member of an FMonList (i = 1st arg) 

141 * 

142 * Detail: Given an FMonList, this function returns the 

143 * ith member of that list, where i is the first argument _number_. 

144 * 

145 */ 

146 FMon 

147 fMonListNumber( number, list ) 

148 ULong number; 

149 FMonList list; 

150 { 

151 ULong i; 

152 FMon back = newFMon(); 

153 

154 for( i = 1; i < number; H — (- ) 

155 { 

156 list = list — > rest; // Traverse list 

157 } 
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158 

159 back = list — > first; 

160 return back; 

161 } 
162 

163 /* 

164 * Function Name: fMonPairListNumber 

165 * 

166 * Overview: Returns the ith member of an FMonPairList (i = 1st arg) 

167 * 

168 * Detail: Given an FMonPairList, this function returns the 

169 * ith member of that list, where i is the first argument jnumber_. 

170 * 

171 */ 

172 FMonPair 

173 fMonPairListNumbcr( number, list ) 

174 ULong number; 

175 FMonPairList list; 

176 { 

177 FMonPair back; 

178 ULong i; 

179 

180 for( i = 1; i < number; H — (- ) 

181 { 

182 list = list — > rest; // Traverse list 

183 } 
184 

185 back.lft = list -> 1ft; 

186 back.rt = list -> rt; 

187 

188 return back; 

189 } 
190 

191 /* 

192 * Function Name: fAlgListN umber 

193 * 

194 * Overview: Returns the ith member of an FAlgList (i = 1st arg) 

195 * 

196 * Detail: Given an FAlgList, this function returns the 

197 * ith member of that list, where i is the first argument jnumber_. 

198 * 

199 */ 

200 FAlg 

201 fAlgListNumber( number, list ) 

202 ULong number; 

203 FAlgList list; 

204 { 

205 ULong i; 

206 FAlg back = newFAlg(); 
207 

208 for( i = 1; i < number; iH — h ) 

209 { 

210 list = list — > rest; // Traverse list 
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211 } 
212 

213 back = list -> first; 

214 return back; 

215 } 
216 

217 /* 

218 * ========================= 

219 * List Membership Functions 

220 * ========================= 

221 */ 
222 

223 /* 

224 * Function Name: fAlgListlsMember 

225 * 

226 * Overview: Does the FAlg appear in the FAlgList? (1 = yes) 

227 * 

228 * Detail: Given an FAlgList, this function tests whether 

229 * a given FAlg appears in the list. This is done by 

230 * moving through the list and checking each entry 

231 * sequentially. Once a match is found, a positive result 

232 * is returned; otherwise once we have gone through the 

233 * entire list, a negative result is returned. 

234 * 

235 */ 

236 Bool 

237 fAlgListIsMember( w, L ) 

238 FAlg w; 

239 FAlgList L; 

240 { 

241 while( L ) 

242 { 

243 if( fAlgEqual( w, L -> first ) == (Bool) 1 ) 

244 { 

245 return (Bool) 1; // Match found 

246 } 

247 L = L -> rest; 

248 } 

249 return (Bool) 0; // No matches found 

250 } 
251 

252 /* 

253 * ======================= 

254 * List Position Functions 

255 * ======================= 

256 */ 
257 

258 /* 

259 * Function Name: fMonListPosition 

260 * 

261 * Overview: Gives position of 1st appearance of FMon in FMonList 

262 * 

263 * Detail: Given an FMonList, this function returns the 
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264 * position of the first appearance of a given FMon in that 

265 * list. If the FMon does not appear in the list, 

266 * is returned. 

267 * 

268 */ 

269 ULong 

270 fMonListPosition( w, L ) 

271 FMon w; 

272 FMonList L; 

273 { 

274 ULong pos = 0; // Current position in list 
275 

276 if( fMonListLength( L ) == ) 

277 { 

return (ULong) 0; // List is empty so no match 

279 } 

280 while( L ) // While there are still elements in the list 

281 { 

282 pos++; 

283 if( fMonEqual( w, L -> first ) == (Bool) 1 ) 

284 { 

285 return pos; // Match found; return position 

286 } 

287 L = L -> rest; 

288 } 

289 return (ULong) 0; // No match found in the list 

290 } 
291 

292 /* 

293 * Function Name: fAlgListPosition 

294 * 

295 * Overview: Gives position of 1st appearance of FAlg in FAlgList 

296 * 

297 * Detail: Given an FAlgList, this function returns the 

298 * position of the first appearance of a given FAlg in that 

299 * list. If the FAlg does not appear in the list, is returned. 

300 * 

301 */ 

302 ULong 

303 fAlgListPosition( w, L ) 

304 FAlg w: 

305 FAlgList L; 

306 { 

307 ULong pos = 0; // Current position in list 
308 

309 if( fAlgListLength( L ) == ) 

310 { 

311 return (ULong) 0; // List is empty so no match 

312 } 

313 while( L ) // While there are still elements in the list 

314 { 

315 pos++; 

316 if( fAlgEqual( w, L — > first ) == (Bool) 1 ) 
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317 { 

318 return pos; // Match found; return position 

319 } 

320 L = L — > rest; 

321 } 

322 return (ULong) 0; // No match found in the list 

323 } 
324 

325 /* 

326 * ================= 

327 * Sorting Functions 

328 * ================= 

329 */ 
330 

331 /* 

332 * Function Name: alphabet Array Swap 

333 * 

334 * Overview: Swaps 2 elements in arrays of ULongs and FMons 

335 * 

336 * Detail: Given an array of ULongs and an array of FMons, 

337 * this function swaps the ith and jth elements of both arrays. 

338 * 

339 */ 

340 void 

341 alphabet ArraySwap ( arrayl, array2, i, j ) 

342 ULong arrayl []; 

343 FMon array2[]; 

344 ULong i, j; 

345 { 

346 ULong swapl; 

347 FMon swap2 = newFMonQ; 

348 

349 swapl = arrayl [i]; 

350 swap2 = array 2 [i]; 

351 arrayl[i] = arrayl[j]; 

352 array2[i] = array2[j]; 

353 arrayl [j] = swapl; 

354 array2[j] = swap2; 

355 } 
356 

357 /* 

358 * Function Name: alphabetArrayQuickSort 

359 * 

360 * Overview: Sorts an array of ULongs (largest first) and 

361 * applies the same changes to the array of FMons 

362 * 

363 * Detail: Using a Quicksort algorithm, this function 

364 * sorts an array of ULongs. The 3rd and 4th arguments 

365 * are used to facilitate the recursive behaviour of 

366 * the function the function should initially be called 

367 * as alphabetArrayQuickSort( A, B, 0, \A\ — 1 ). 

368 * It is assumed that \A\ = \B\ and the changes made to A 

369 * during the algorithm are also applied to B. 
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370 * 

371 * Reference: "The C Programming Language" 

372 * by Brian W. Kernighan and Dennis M. Ritchie 

373 * (Second Edition, 1988) Page 87. 

374 * 

375 */ 

376 void 

377 alphabet ArrayQuickSort( arrayl, array2, start, finish ) 

378 ULong arrayl []; 

379 FMon array2[]; 

380 ULong start, finish; 

381 { 

382 ULong i, last; 

383 

384 if( start < finish ) 

385 { 

386 alphabet Array Swap( arrayl, array2, start, ( start + finish )/2 ); // Move partition elem 

387 last = start; // to array[0] 
388 

389 for( i = start+1; i <= finish; H — h ) // Partition 

390 { 

391 if( arrayl [start] < arrayl[i] ) 

392 { 

393 alphabet ArraySwap ( arrayl, array2, H — hlast, i ); 

394 } 

395 } 

alphabet Array Swap( arrayl, array2, start, last ); // Restore partition elem 

397 if( last != ) 

398 { 

if( start < last— 1 ) alphabctArrayQuickSort( arrayl, array2, start, last— 1 ); 

400 } 

if( last+1 < finish ) alphabetArrayQuickSort( arrayl, array2, last+1, finish ); 

402 } 

403 } 
404 

405 /* 

406 * Function Name: fAlgArraySwap 

407 * 

408 * Overview: Swaps 2 elements in arrays of FAlgs and FMons 

409 * 

410 * Detail: Given an array of FAlgs and an associated array 

411 * of FMons, this function swaps the ith and jth elements 

412 * of the arrays. 

413 * 

414 */ 

415 void 

416 fAlgArraySwap( polynomials, monomials, i, j ) 

417 FAlg polynomials []; 

118 FMon monomials[]; 

119 ULong i, j; 

120 { 

421 FAlg swapA = ncwFAlg(); 

422 FMon swapM = newFMonQ; 
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123 

424 swapA = polynomials [i]; 

425 swapM = monomials [i]; 

426 polynomials [i] = polynomials [j] ; 

427 monomials[i] = monomials[j] ; 

428 polynomials [j] = swapA; 

429 monomials[j] = swapM; 

430 } 
431 

432 /* 

433 * Function Name: fAlg Array Quicksort DHL 

434 * 

435 * Overview: Sorts an array of FAlgs using DegRevLex (largest first) 

436 * 

437 * Detail: Using a Quicksort algorithm, this function 

438 * sorts an array of FAlgs by sorting on the associated array 

439 * of FMons which store the lead monomials of the polynomials. 

440 * The 3rd and J^th arguments are used to facilitate the recursive 

441 * behaviour of the function the function should initially be 

442 * called as fAlg Array QuickSortDRL( A, B, 0, \A\-1 ). 

443 * 

444 * Reference: "The C Programming Language" 

445 * by Brian W. Kernighan and Dennis M. Ritchie 

446 * (Second Edition, 1988) Page 87. 

447 * 

448 */ 

449 void 

450 fAlgArrayQuickSortDRL( polynomials, monomials, start, finish ) 

151 FAlg polynomials []; 

152 FMon monomials[]; 

453 ULong start, finish; 

454 { 

455 ULong i, last; 

456 

157 if( start < finish ) 

458 { 

459 fAlgArraySwap( polynomials, monomials, start, ( start + finish )/2 ); // Move partition elem 

460 last = start; //to array [0] 
461 

462 for( i = start+1; i <= finish; H — h ) // Partition 

463 { 

464 if( fMonDcgRcvLcx( monomials [start], monomials[i] ) == (Bool) 1 ) 

465 { 

466 fAlgArraySwap( polynomials, monomials, H — hlast, i ); 

467 } 

468 } 

469 fAlgArraySwap( polynomials, monomials, start, last ); // Restore partition elem 

470 if( last != ) 

471 { 

if( start < last— 1 ) fAlgArrayQuickSortDRL( polynomials, monomials, start, last— 1 ); 

473 } 

if( last+1 < finish ) fAlgArrayQuickSortDRL( polynomials, monomials, last+1, finish ); 

475 } 
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476 } 
477 

478 /* 

479 * Function Name: fAlg Array QuickSortOrd 

480 * 

481 * Overview: Sorts an array of FAlgs using theOrdFun (largest first) 

482 * 

483 * Detail: Using a Quicksort algorithm, this function 

484 * sorts an array of FAlgs by sorting on the associated array 

485 * of FMons which store the lead monomials of the polynomials. 

486 * The 3rd and 4th arguments are used to facilitate the recursive 

487 * behaviour of the function the function should initially be 

488 * called as fAlgArrayQuickSortOrdf A, B, 0, \A\—1 ). 

489 * 

490 * Reference: "The C Programming Language" 

491 * by Brian W. Kernighan and Dennis M. Ritchie 

492 * (Second Edition, 1988) Page 87. 

493 * 

494 */ 

495 void 

496 fAlgArrayQuickSortOrd( polynomials, monomials, start, finish ) 

497 FAlg polynomials []; 
198 FMon monomials []; 

499 ULong start, finish; 

500 { 

501 ULong i, last; 

502 

503 if( start < finish ) 

504 { 

505 fAlgArraySwap( polynomials, monomials, start, ( start + finish )/2 ); // Move partition elem 

506 last = start; //to array [0] 
507 

508 for( i = start+1; i <= finish; H — h ) // Partition 

509 { 

510 if( thcOrdFun( monomials [start] , monomials[i] ) == (Bool) 1 ) 

511 { 

512 fAlgArraySwap( polynomials, monomials, H — hlast, i ); 

513 } 

514 } 

515 fAlgArraySwap( polynomials, monomials, start, last ); // Restore partition elem 

516 if( last != ) 

517 { 

if( start < last— 1 ) fAlgArrayQuickSortOrd( polynomials, monomials, start, last— 1 ); 

519 } 

520 if( last+1 < finish ) fAlgArrayQuickSortOrd( polynomials, monomials, last+1, finish ); 

521 } 

522 } 
523 

524 /* 

525 * Function Name: fAlgListSort 

526 * 

527 * Overview: Sorts an FAlgList (largest first) 

528 * 
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529 * Detail: This function sorts an FAlgList by 

530 * converting the list to an array, sorting the array 

531 * with a Quicksort algorithm, and converting 

532 * the array back to an FAlgList which is then returned. 

533 * 

534 */ 

535 FAlgList 

536 fAlgListSort( L, type ) 

537 FAlgList L; 

538 int type; 

539 { 

540 FAlgList back = fAlgListNul; 

541 ULong length = fAlgListLength( L ), i; 

542 FAlg polynomials [length] ; 

543 FMon monomials [length] ; 

544 

545 // Check for empty list or singleton list 

546 if( ( !L ) || ( length == 1 ) ) return L; 

547 

548 // Transfer elements into array 

549 for( i = 0; i < length; i++ ) 

550 { 

551 polynomials [i] = L — > first; 

552 monomials [i] = fAlgLeadMonom( L — > first ); 

553 L = L — > rest; 

554 } 

555 

556 // Sort the array (smallest — > largest) 

557 if( type == 1 ) // Sort by DegRevLex 

558 fAlgArrayQuickSortDRL( polynomials, monomials, 0, length— 1 ); 

559 else // Sort by theOrdFun 

fAlgArrayQuickSortOrd( polynomials, monomials, 0, length— 1 ); 

561 

562 // Transfer elements back *in reverse* onto an FAlgList 

563 for( i = length; i >= 1; i ) 

564 { 

565 back = fAlgListPush( polynomials [i— 1], back ); 

566 } 
567 

568 // Return the sorted list 

569 return back; 

570 } 
571 

572 /* 

573 * Function Name: multiplicative Array Swap 

574 * 

575 * Overview: Swaps 2 elements in arrays of FMons, ULongs and ULongs 

576 * 

577 * Detail: Given an array of FMons and two associated arrays 

578 * of ULongs, this function swaps the ith and jth elements 

579 * of the arrays. 

580 * 

581 */ 
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582 void 

583 multiplicativeArraySwap( monomials, lengths, positions, i, j ) 

584 FMon monomials[]; 

585 ULong lengths], positions[], i, j; 

586 { 

587 FMon swapM = newFMon(); 

588 ULong swapUl, swapU2; 

589 

590 swapM = monomials [i]; 

591 swapUl = lengthsp]; 

592 swapU2 = positions [i]; 

593 monomials[i] = monomials[j] ; 

594 lengths [i] = lengths [j]; 

595 positions [i] = positions [j]; 

596 monomials[j] = swapM; 

597 lengths[j] = swapUl; 

598 positions[j] = swapU2; 

599 } 
600 

601 /* 

602 * Function Name: multiplicativeQuickSort 

603 * 

604 * Overview: Sorts input data to OverlapDiv w.r.t. DegRevLex (largest first) 

605 * 

606 * Detail: Using a Quicksort algorithm, this function 

607 * sorts an array of FMons w.r.t. DegRevLex and applies the same 

608 * changes to two associated arrays of ULongs. 

609 * The 4th and 5th arguments are used to facilitate the recursive 

610 * behaviour of the function the function should initially be 

611 * called as multiplicativeQuickSort( A, B, C, 0, \A\ — 1 ). 

612 * 

613 * Reference: "The C Programming Language" 

614 * by Brian W. Kernighan and Dennis M. Ritchie 

615 * (Second Edition, 1988) Page 87. 

616 * 

617 */ 

618 void 

619 multiplicativcQuickSort( monomials, lengths, positions, start, finish ) 

620 FMon monomials []; 

621 ULong lengths[], positions], start, finish; 

622 { 

623 ULong i, last; 

624 

625 if( start < finish ) 

626 { 

627 // Move partition elem to array [0] 

multiplicativeArraySwap( monomials, lengths, positions, start, ( start + finish )/2 ); 

629 last = start; 



630 



6:13 



631 



632 



63 1 



for( i = start+1; i <= finish; H — h ) // Partition 
{ 

if( fMonDegRevLex( monomials [start] , monomials [i] ) 
{ 



(Bool) 1 ) 
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635 multiplicativcArraySwap( monomials, lengths, positions, H — hlast, i ); 

636 } 

637 } 

638 multiplicativcArraySwap( monomials, lengths, positions, start, last ); // Restore partition elem 

639 if( last != ) 

640 { 

if( start < last— 1 ) multiplicativcQuickSort( monomials, lengths, positions, start, last— 1 ); 

642 } 

if( last+1 < finish ) multiplicativcQuickSort( monomials, lengths, positions, last+1, finish ); 



644 } 

645 } 
646 

647 /* 

648 * ======================== 

649 * Insertion Sort Functions 

650 * ======================== 

651 */ 
652 

653 /* 

654 * Function Name: fAlgListDegRevLexPush 

655 * 

656 * Overview: Insert into list according to DegRevLex 

657 * 

658 * Detail: This functions inserts the polynomial jpoly_ 

659 * into the FAlgList Snput_ so that the list remains 

660 * sorted by DegRevLex (largest first). 

661 * 

662 */ 

663 FAlgList 

664 fAlgListDcgRcvLexPush( poly, input ) 

665 FAlg poly; 

666 FAlgList input; 

667 { 



668 FAlgList output = fAlgListNul; // Initialise the return list 

669 FMon lead = fAlgLeadMonom( poly ); 

670 

671 if( linput ) // If there is nothing in the input list 

672 { 

673 // Return a singleton list 

674 return fAlgListSingle( poly ); 

675 } 

676 else 

677 { 

678 // While the next element in the list is larger than Jead. 

679 while( ( fAlgListLength( input ) > ) 

680 && ( fMonDegRevLex( lead, fAlgLeadMonom( input -> first ) ) == (Bool) 1 ) ) 

681 { 

682 // Push the list element onto the output list 

683 output = fAlgListPush( input — > first, output ); 

684 input = input — > rest; // Advance the list 

685 } 

686 // Now push the new element onto the list 

687 output = fAlgListPush( poly, output ); 
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688 // Reverse the output list (it was constructed in reverse) 

689 output = fAlgListFXRev( output ); 

690 //If there is anything left in the input list, tag it onto the output list 

691 if( input ) output = f AlgList Append ( output, input ); 
692 

693 return output; 



694 } 

695 } 
696 

697 /* 

698 * Function Name: fAlgListDegRevLexPushPosition 

699 * 

700 * Overview: As above, but also returns the insertion position 

701 * 

702 * Detail: This functions inserts the polynomial jpoly_ 

703 * into the FAlgList Snput- so that the list remains 

704 * sorted by DegRevLex (largest first). The position in 

705 * which the insertion took place is placed in the 

706 * variable _pos_. 

707 * 

708 */ 

709 FAlgList 

710 fAlgListDegRevLexPushPosition ( poly, input, pos ) 

711 FAlg poly; 

712 FAlgList input; 

713 ULong *pos; 

714 { 



715 FAlgList output = fAlgListNul; // Initialise the return list 

716 FMon lead = fAlgLeadMonom( poly ); 

717 ULong position = 1; 

718 

719 if( linput ) // If there is nothing in the input list 

720 { 

721 *pos = 1; // Inserted into the first position 

722 // Return a singleton list 

723 return fAlgListSingle( poly ); 

724 } 

725 else 

726 { 

727 // While the next element in the list is larger than 3ead_ 

728 while( ( fAlgListLength( input ) > ) 

729 && ( fMonDegRevLex( lead, fAlgLeadMonom( input -> first ) ) == (Bool) 1 ) ) 

730 { 

731 // Push the list element onto the output list 

732 output = fAlgListPush( input — > first, output ); 

733 input = input — > rest; // Advance the list 

734 positionH — h; // Increment the insertion position 

735 } 

736 // We now know the insertion position 

737 *pos = position; 

738 // Push the new element onto the list 

739 output = fAlgListPush( poly, output ); 

740 // Reverse the output list (it was constructed in reverse) 
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741 output = fAlgListFXRev( output ); 

742 //If there is anything left in the input list, tag it onto the output list 

743 if( input ) output = f AlgList Append ( output, input ); 

744 

745 return output; 

746 } 

747 } 

748 

749 /* 

750 * Function Name: fAlgListNorraalPush 

751 * 

752 * Overview: Insert into list according to the current monomial ordering 

753 * 

754 * Detail: This functions inserts the polynomial ~poly_ 

755 * into the FAlgList Snput_ so that the list remains 

756 * sorted by the current monomial ordering (largest first). 

757 * 

758 */ 

759 FAlgList 

760 fAlgListNormalPush( poly, input ) 

761 FAlg poly; 

762 FAlgList input; 

763 { 

764 FAlgList output = fAlgListNul; // Initialise the return list 

765 FMon lead = fAlgLeadMonom( poly ); 

766 

767 if( linput ) / / If there is nothing in the input list 

768 { 

769 // Return a singleton list 

770 return fAlgListSingle( poly ); 

771 } 

772 else 

773 { 

774 // While the next element in the list is larger than JeadL 

775 while ( ( fAlgListLength( input ) > ) 

776 && ( theOrdFun( lead, fAlgLeadMonom( input -> first ) ) == (Bool) 1 ) ) 

777 { 

778 // Push the list element onto the output list 

779 output = fAlgListPush( input — > first, output ); 

780 input = input — > rest; // Advance the list 

781 } 

782 // Now push the new element onto the list 

783 output = fAlgListPush( poly, output ); 

784 // Reverse the output list (it was constructed in reverse) 

785 output = fAlgListFXRev( output ); 

786 //If there is anything left in the input list, tag it onto the output list 

787 if( input ) output = f AlgList Append ( output, input ); 

788 

789 return output; 

790 } 

791 } 
792 

793 /* 
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794 * Function Name: fAlgListNormalPushPosition 

795 * 

796 * Overview: As above, but also returns the insertion position 

797 * 

798 * Detail: This functions inserts the polynomial jpoly_ 

799 * into the FAlgList .input, so that the list remains 

800 * sorted by the current monomial ordering (largest first). 

801 * The position in which the insertion took place is placed 

802 * in the variable _pos_. 

803 * 

804 */ 

805 FAlgList 

806 fAlgListNormalPushPosition( poly, input, pos ) 

807 FAlg poly; 

808 FAlgList input; 

809 ULong *pos; 

810 { 



811 FAlgList output = fAlgListNul; // Initialise the return list 

812 FMon lead = fAlgLeadMonom( poly ); 

813 ULong position = 1; 

814 

815 if( linput ) // If there is nothing in the input list 

816 { 

817 *pos = 1; // Inserted into the first position 

818 // Return a singleton list 

819 return fAlgListSingle( poly ); 

820 } 

821 else 

822 { 

823 // While the next element in the list is larger than dead. 

824 while( ( fAlgListLength( input ) > ) 

825 && ( theOrdFun( lead, fAlgLeadMonom( input -> first ) ) == (Bool) 1 ) ) 

826 { 

827 // Push the list element onto the output list 

828 output = fAlgListPush( input — > first, output ); 

829 input = input — > rest; // Advance the list 

830 positionH — h; // Increment the insertion position 

831 } 

832 // We now know the insertion position 

833 *pos = position; 

834 // Push the new element onto the list 

835 output = fAlgListPush( poly, output ); 

836 // Reverse the output list (it was constructed in reverse) 

837 output = fAlgListFXRev( output ); 

838 //If there is anything left in the input list, tag it onto the output list 

839 if( input ) output = f AlgList Append ( output, input ); 

840 

841 return output; 

842 } 



843 } 
844 

845 /* 

846 * 
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847 * Deletion Functions 

848 * ================== 

849 */ 
850 

851 /* 

852 * Function Name: fMonListRemoveNumber 

853 * 

854 * Overview: Removes the (1st arg)—th element from the list 

855 * 

856 * Detail: Given an FMonList J,ist_, this function removes 

857 * from J,ist_ the element in position jnumber_. 

858 * 

859 */ 

860 FMonList 

861 fMonListRcmovcNumber( number, list ) 

862 ULong number; 

863 FMonList list; 

864 { 

865 FMonList output = fMonListNul; 

866 ULong i; 

867 

868 for( i = 1; i < number; i++ ) 

869 { 

870 / / Push the first ( number— 1 ) elements onto the list 
output = fMonListPush( list — > first, output ); 

872 list = list -> rest; 

873 } 
874 

875 // Delete the number— th element by skipping past it 

876 list = list — > rest; 
877 

878 // Push the remaining elements onto the list 

879 while( list ) 

880 { 

881 output = fMonListPush( list — > first, output ); 

882 list = list -> rest; 

883 } 
884 

885 // Return the reversed list (it was constructed in reverse) 

886 return fMonListFXRev( output ); 

887 } 

888 

889 /* 

890 * Function Name: fMonP airListRemoveN umber 

891 * 

892 * Overview: Removes the (1st arg)—th element from the list 

893 * 

894 * Detail: Given an FMonPairList JAst-, this function removes 

895 * from Jist_ the element in position jnumber_. 

896 * 

897 */ 

898 FMonPairList 

899 fMonPairListRemoveNumbcr( number, list ) 
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900 ULong number; 

901 FMonPairList list; 

902 { 

903 FMonPairList output = fMonPairListNul; 

904 ULong i; 

905 

906 for( i = 1; i < number; H — h ) 

907 { 

908 / / Push the first ( number— 1 ) elements onto the list 
output = fMonPairListPush( list -> 1ft, list — > rt, output ); 

910 list = list -> rest; 

911 } 
912 

913 // Delete the number— th element by skipping past it 

914 list = list — > rest; 
915 

916 // Push the remaining elements onto the list 

917 while( list ) 

918 { 

output = fMonPairListPush( list -> 1ft, list -> rt, output ); 

920 list = list -> rest; 

921 } 

922 

923 // Return the reversed list (it was constructed in reverse) 

924 return fMonPairListFXRcv( output ); 

925 } 
926 

927 /* 

928 * Function Name: fAlgListRemoveNumber 

929 * 

930 * Overview: Removes the (1st arg)—th element from the list 

931 * 

932 * Detail: Given an FAlgList J,ist_, this function removes 

933 * from J,ist_ the element in position jnumber_. 

934 * 

935 */ 

936 FAlgList 

937 fAlgListRemoveNumber ( number, list ) 

938 ULong number; 

939 FAlgList list; 

940 { 

941 FAlgList output = fAlgListNul; 

942 ULong i; 

943 

944 for( i = 1; i < number; i++ ) 

945 { 

946 / / Push the first ( number— 1 ) elements onto the list 
output = fAlgListPush( list — > first, output ); 

948 list = list -> rest; 

949 } 
950 

951 // Delete the number— th element by skipping past it 

952 list = list -> rest; 
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953 

954 // Push the remaining elements onto the list 

955 while( list ) 

956 { 

957 output = fAlgListPush( list — > first, output ); 

958 list = list -> rest; 

959 } 
960 

961 // Return the reversed list (it was constructed in reverse) 

962 return fAlgListFXRev( output ); 

963 } 
964 

965 /* 

966 * ===================== 

967 * Normalising Functions 

968 * ===================== 

969 */ 
970 

971 /* 

972 * Function Name: fAlgListRemoveFractions 

973 * 

974 * Overview: Removes any fractions found in the FAlgList by scalar multiplication 

975 * 

976 * Detail: Given a list of polynomials , this function analyses 

977 * each polynomial in turn, multiplying a polynomial by an 

978 * appropriate integer if a fractional coefficient is 

979 * found for any term in the polynomial. For example, if one 

980 * polynomial in the list is (2/3)xy + (l/5)x + 2y, 

981 * then the polynomial is multiplied by 3*5 = 15 to remove 

982 * the fractional coefficients, and the output polynomial 

983 * is therefore lOxy + 3x + 30y. 

984 * 

985 */ 

986 FAlgList 

987 fAlgListRemoveFractions ( input ) 

988 FAlgList input; 

989 { 

990 FAlgList output = fAlgListNul; 

991 FAlg p, LTp, new; 

992 Integer denominator; 

993 

994 while( input ) // For each polynomial in the list 

995 { 

996 p = input — > first; // Extract a polynomial 

997 input = input — > rest; // Advance the list 
998 

999 new = fAlgZeroQ; // Initialise the new polynomial 

1000 while( p ) // For each term of the polynomial p 

1001 { 

1002 LTp = fAlgLeadTerm( p ); // Extract the lead term 

1003 p = fAlgRcductum( p ); // Advance the polynomial 
1004 

1005 denominator = fAlgLeadCoef( LTp ) — > den; // Extract the denominator 
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1006 if( zIsOne( denominator ) == ) // If the denominator is not 1 

1007 { 

1008 // Multiply the whole polynomial by the denominator 

1009 if( p ) p = fAlgZScaTimes( denominator, p ); // Still to be looked at 

1010 LTp = fAlgZScaTimes( denominator, LTp ); // Looking at 

1011 new = fAlgZScaTimes( denominator, new ); // Looked at 

1012 } 

1013 new = fAlgPlus( new, LTp ); // Add the term to the output polynomial 

1014 } 

1015 output = fAlgListPush( new, output ); // Add the new polynomial to the output list 

1016 } 
1017 

1018 // The new list was read in reverse so we must reverse it before returning it 

1019 return fAlgListFXRev( output ); 



1020 } 
1021 

1022 /* 

1023 * ======= 

1024 * End of File 

1025 * ======= 

1026 */ 



B.2.10 ncinv_functions.h 

1 /* 

2 * File: ncinv Junctions. h 

3 * Author: Gareth Evans 

4 * Last Modified: 6th July 2005 

5 */ 
6 

7 // Initialise file definition 

8 # ifndef NCINV_FUNCTIONS_HDR 

9 # define NCINV_FUNCTIONS_HDR 
10 

11 // Include MSSRC Libraries 

2 # include <fralg.h> 
13 

14 // 

15 // External Variables Required 

16 // 
17 

18 extern ULong nOfProlongations, // Stores the number of prolongations calculated 

19 nRcd; // Stores how many reductions have been performed 

20 extern int dcgRcstrict, // Determines whether of not prolongations are restricted by degree 

21 EType, // Stores the type of Overlap Division 

22 IType, // Stores the involutive division used 

23 nOf Generators, // Holds the number of generators 

24 pi, // Holds the "Print Level" 

25 SType, // Determines how the basis is sorted 

26 MType; // Determines involutive division method 
27 

28 // 
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29 // Functions Defined in ncinvj unctions . c 

30 // 
31 

32 // 

33 // Overlap Functions 

34 // 
35 

36 // Returns the union of (non-)multiplicative variables (1st arg) and a generator (2nd arg) 

37 FMon multiplicativeUnion( FMon, FMon ); 

38 // Does the generator (1st arg) appear in the list of multiplicative variables (2nd arg)? 

39 int fMonIsMultiplicative( FMon, FMon ); 

40 // Does the 1st arg appear as a subword in the 2nd arg (yes (l)/no (0)) 
11 int fMonIsSubword( FMon, FMon ); 

42 //Is the 1st arg a subword of the 2nd arg; if so, return start pos in 2nd arg 

13 ULong fMonSubwordOf( FMon, FMon, ULong ); 

44 

45 // Returns size of smallest overlap of type (suffix of 1st arg = prefix of 2nd arg) 

46 ULong fMonPrefixOf( FMon, FMon, ULong, ULong ); 

47 // Returns size of smallest overlap of type (prefix of 1st arg = suffix of 2nd arg) 
18 ULong fMonSuffixOf( FMon, FMon, ULong, ULong ); 

49 

50 // 

51 // Multiplicative Variables Functions 

52 // 
53 

54 // Returns no ('empty') multiplicative variables 

55 void EMultVars( FMon, ULong *, ULong * ); 

56 // All variables left mult., no variables right mult. 

57 void LMultVars( FMon, ULong *, ULong * ); 

58 // All variables right mult., no variables left mult. 

59 void RMultVars( FMon, ULong *, ULong * ); 

60 // Returns local overlap— based multiplicative variables 

61 FMonPairList OvcrlapDiv( FAlgList ); 
62 

63 // 

64 // Polynomial Reduction and Basis Completion Functions 

65 // 
66 

67 // Reduces 1st arg w.r.t. 2nd arg (list) and 3rd arg (vars) 

68 FAlg IPolyReduce( FAlg, FAlgList, FMonPairList ); 

69 // Autoreduces an FAlgList recursively until no more reductions are possible 

70 FAlgList IAutoreduceFull( FAlgList ); 

71 // Implements Seiler's original algorithm for computing locally involutive bases 

72 FAlgList Seilcr( FAlgList ); 

73 // Implements Gerdt's advanced algorithm for computing locally involutive bases 

74 FAlgList Gerdt( FAlgList ); 

75 

76 # endif // NCINV.FUNCTIONS.HDR 

B.2.11 ncinv_functions.c 

i /* 
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2 * File: ncinv 'Junctions, c 

3 * Author: Gareth Evans 

4 * Last Modified: 10th August 2005 

5 */ 
6 

7 /* 

8 * ====================================== 

9 * Global Variables for ncinv Junctions, c 

10 * ====================================== 

11 */ 
12 

13 int hcadRoduce = 0; // Controls type of polynomial reduction 

11 ULong d, // Stores the bound on the restriction of prolongations 

15 twod; // Stores 2*d for efficiency 
16 

17 /* 

18 * ================= 

19 * Overlap Functions 

20 * ================= 

21 */ 
22 

23 /* 

24 * Function Name: multiplicative 1 ] nion 

25 * 

26 * Overview: Returns the union of (non— jmultiplicative variables 

27 * (1st arg) and a generator (2nd arg) 

28 * 

29 * Detail: This function inserts a generator into a monomial representing 

30 * (non-)multiplicative variables so that the ASCII ordering of the 

31 * monomial is preserved. For example, if _a_ = A*B*C*E*F and _6_ = D, 

32 * then the output monomial is A*B*C*D*E*F. 

33 * 

34 */ 

35 FMon 

36 multiplicativcUnion( a, b ) 

37 FMon a, b; 

38 { 

39 FMon output = fMonOne(); 

40 ULong test, insert = ASCIIVal( fMonLeadVar( b ) ), 

41 len = fMonLength( a ); 

42 

43 // If a is empty there is no problem — we just return b 

44 if( !a ) return b; 
else 

46 { 

47 // Go through each generator in a 

48 while( len > ) 

49 { 

50 len ; 

51 // Obtain the numerical value of the first generator 

52 test = ASCIIVal( fMonLeadVar( a ) ); 

53 

54 if( test < insert ) // We must skip past this generator 
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55 



output = fMonTimes( output, fMonPrcfix( a, 1 ) ); 



57 



5(i 



else if( test == insert ) // b is already in a so we just return the _originaL a 
return fMonTimes( output, a ); 



59 



58 



else // We insert b in this position and tag on the remainder 
return fMonTimes( output, fMonTimes( b, a ) ); 



60 



62 



61 



// Get ready to look at the next generator 
a = fMonTailFac( a ); 



63 } 

64 } 
65 

66 // Deal with the case "insert > {everything in a}" 

67 return fMonTimes( output, b ); 

68 } 
69 

70 /* 

71 * Function Name: fMonls Multiplicative 



73 * Overview: Does the generator _a_ appear in the list of multiplicative variables 

74 * 

75 * Detail: Given a generator _a_, this function tests to see whether 

76 * _a_ appears in a list of multiplicative variables 

77 * 

78 */ 

79 int 

80 fMonIsMultiplicative( a, b ) 

81 FMon a, b; 

82 { 

83 ULong lenb = fMonLength( b ), i; 

84 

85 // For each possible overlap 

86 for( i = 1; i <= lenb; i++ ) 

87 { 

88 if( fMonEqual( a, fMonSubWordLen( b, i, 1 ) ) == (Bool) 1 ) 

89 return 1; // Match found 

90 } 
91 

92 return 0; // No match found 

93 } 
94 

95 /* 

96 * Function Name: fMonlsSubword 

97 * 

98 * Overview: Does _a_ appear as a subword in _6_ (yes (l)/no (0)) 



100 * Detail: This function answers the question "Is _a_ a subword of 

101 * The function returns 1 if _a_ is a subword of _fe_ and otherwise. 

102 * 

103 */ 

104 int 

105 fMonlsSubword ( a, b ) 

106 FMon a, b; 

107 { 



72 * 



99 * 
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108 ULong lena = fMonLength( a ), lenb = fMonLength( b ), i; 

109 

110 // For each possible overlap 

111 for( i = 1; i <= lcnb-lena+1; i++ ) 

112 { 

113 if( fMonEqual( a, £MonSubWordLen( b, i, lena ) ) == (Bool) 1 ) 

114 return 1; // Overlap found 

115 } 
116 

117 return 0; // No overlap found 

118 } 
119 

120 /* 

121 * Function Name: fMonSubwordOf 

122 * 

123 * Overview: Is the 1st arg a subword of the 2nd arg; if so, return start pos in 2nd arg 

124 * 

125 * Detail: This function can answer the question "Is _smalL a subword of Jarge_?" 

126 * The function returns i if _smalL is a subword of Jarge_, 

127 * where i is the position in Jarge_ of the first subword found, 

128 * and returns if no overlap exists. We start looking for subwords starting 

129 * at position _siarf_ in J,arge_ and finish looking for subwords when 

130 * all possibilities have been exhausted (we work left— to— right). It follows 

131 * that to test all possibilities the 3rd argument should be 1, but note that 

132 * you should use the above function (fMonlsSubword) if you only want to know 

133 * if a monomial is a subword of another monomial and are not fussed 

134 * where the overlap takes place. 

135 * 

136 */ 

137 ULong 

138 fMonSubwordOf( small, large, start ) 

139 FMon small, large; 

140 ULong start; 

141 { 

142 ULong i = start, sLen = fMonLengtli( small ), lLen = fMonLength( large ); 
143 

144 / / While there are more subwords to test for 

145 while( i <= lLen— sLen+1 ) 

146 { 

147 // If small is equal to a subword of large 

if( fMonEqual( small, fMonSubWordLen( large, i, sLen ) ) == (Bool) 1 ) 

149 { 

150 return i; // Subword found 

151 } 

152 i++; 

153 } 

154 return 0; // No subwords found 

155 } 
156 

157 /* 

158 * Function Name: fMonPrefixOf 

159 * 

160 * Overview: Returns size of smallest overlap of type (suffix of 1st arg = prefix of 2nd arg) 
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161 * 

162 * Detail: This function can answer the question "Is 3eft_ a prefix of jright_?" 

163 * The function returns i if a suffix of Jeft_ is equal to a prefix of jright_, 

164 * where i is the length of the smallest overlap, and returns if no overlap exists. 

165 * The lengths of the overlaps we look at are controlled by the 3rd and J^th 

166 * arguments — we start by looking at the overlap of size _start_ and finish 

167 * by looking at the overlap of size Jimit_. It is the user's responsibility 

168 * to ensure that these bounds are correct — no checks are made by the function. 

169 * To test all possibilities, the 3rd argument should be 1 and the fourth 

170 * argument should be min( \ left\, \right\ ) — 1. 

171 * 

172 */ 

173 ULong 

174 fMonPrefixOf( left, right, start, limit ) 

175 FMon left, right; 

176 ULong start, limit; 

177 { 

178 ULong i = start; 
179 

180 while( i <= limit ) // For each overlap 

181 { 

182 if( fMonEqual( fMonSuffix( left, i ), fMonPrefix( right, i ) ) == (Bool) 1 ) 

183 { 

184 return i; // Prefix found 

185 } 

186 i++; 

187 } 

188 return 0; // No prefixes found 

189 } 
190 

191 /* 

192 * Function Name: fMonSuffixOf 

193 * 

194 * Overview: Returns size of smallest overlap of type (prefix of 1st arg = suffix of 2nd arg) 

195 * 

196 * Detail: This function can answer the question "Is Jeft_ a suffix of jright_?" 

197 * The function returns i if a prefix of -left_ is equal to a suffix of jright_, 

198 * where i is the length of the smallest overlap, and returns if no overlap exists. 

199 * The lengths of the overlaps we look at are controlled by the 3rd and 4th 

200 * arguments — we start by looking at the overlap of size _start_ and finish 

201 * by looking at the overlap of size J,imit_. It is the user's responsibility 

202 * to ensure that these bounds are correct — no checks are made by the function. 

203 * To test all possibilities, the 3rd argument should be 1 and the fourth 

204 * argument should be min( \ left\, \right\ ) — 1. 

205 * 

206 */ 

207 ULong 

208 fMonSuffixOf( left, right, start, limit ) 

209 FMon left, right; 

210 ULong start, limit; 

211 { 

212 ULong i = start; 
213 
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214 while( i <= limit ) // For each overlap 

215 { 

if( fMonEqual( fMonPrefix( left, i ), fMonSuffix( right, i ) ) == (Bool) 1 ) 

217 { 

218 return i; // Suffix found 

219 } 

220 i++; 

221 } 

222 return 0; // No suffixes found 

223 } 
224 

225 /* 

226 * ================================== 

227 * Multiplicative Variables Functions 

228 * ================================== 

229 */ 
230 

231 /* 

232 * Function Name: EMultVars 

233 * 

234 * Overview: Returns no ('empty') multiplicative variables 

235 * 

236 * Detail: Given a monomial, this function assigns 

237 * no multiplicative variables. 

238 * 

239 * External Variables Required: int nOf Generators ; 

240 * 

241 */ 
212 void 

243 EMultVars( mon, max, min ) 

244 FMon mon; 

245 ULong *max, *min; 

216 { 

247 // Nothing is right multiplicative 

248 *max = (ULong)nOfGcnerators + 1; 

249 // Nothing is left multiplicative 

250 *min = 0; 

251 } 
252 

253 /* 

254 * Function Name: LMultVars 

255 * 

256 * Overview: All variables left mult., no variables right mult. 

257 * 

258 * Detail: Given a monomial, this function assigns 

259 * all variables to be left multiplicative and all 

260 * variables to be right nonmultiplicative. 

261 * 

262 * External Variables Required: int nOf Generators ; 

263 * 

264 */ 

265 void 

266 LMultVars( mon, max, min ) 
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267 FMon mon; 

268 ULong *max, *min; 

269 { 

270 // Nothing is right multiplicative 

271 *max = (ULong)nOfGcncrators + 1; 

272 // Everything is left multiplicative 

273 *min = (ULong)nOfGcncrators + 1; 
271 } 

275 

276 /* 

277 * Function Name: RMultVars 

278 * 

279 * Overview: All variables right mult., no variables left mult. 

280 * 

281 * Detail: Given a monomial, this function assigns 

282 * all variables to be right multiplicative and all 

283 * variables to be left nonmultiplicative. 

284 * 

285 * External Variables Reguired: int nOf Generators ; 

286 * 

287 */ 

288 void 

289 RMultVars( mon, max, min ) 

290 FMon mon; 

291 ULong *max, *min; 

292 { 

293 // Everything is right multiplicative 

294 *max = 0; 

295 // Nothing is left multiplicative 

296 *min = 0; 

297 } 
298 

299 /* 

300 * Function Name: OverlapDiv 

301 * 

302 * Overview: Returns local overlap— based multiplicative variables 

303 * 

304 * Detail: This function implements various algorithms 

305 * described in the thesis " Noncommutative Involutive Bases" 

306 * for finding left and right multiplicative variables 

307 * for a set of polynomials based on the overlaps 

308 * between the leading monomials of the polynomials. 

309 * 

310 * External Variables Reguired: int EType, IType, nOf Generators , pi, SType; 

311 * 

312 */ 

313 FMonPairList 

314 OverlapDiv( list ) 

315 FAlgList list; 

316 { 

317 FMonPairList output = fMonPairListNul; 

318 FMon generator; 

319 ULong listLen = fAlgListLength( list ), 
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320 monLcngth[listLcn] , tracking [listLcn] , 

321 i, j, first, limit, result, len, 

322 IcttcrVall, lcttcrVal2; 

323 FMon monomials [listLcn] , monExcl, 

324 leftMult[listLen], rightMult[listLen]; 

325 short grid [listLcn] [(ULong)nOfGcncrators * 2], 

326 thresholdBrokcn, excludcL, excludeR; 
327 

328 // Give some initial information 

329 if( pi > 3 ) 

330 { 

printf("OverlapDiv ' s u Input u = u \n"); 
332 fAlgListDisplay( list ); 



333 } 
334 

335 if( !list ) return output; 

336 

337 // Set up arrays 

338 i = 0; 



339 while( list ) // For each polynomial 

340 { 

341 monomials[i] = fAlgLcadMonom( list — > first ); // Extract lead monomial 

342 monLcngth [i] = fMonLength( monomials [i] ); // Find monomial length 

343 lcftMult[i] = fMonOnc(); // Initialise left multiplicative variables 

344 rightMult [i] = fMonOneQ; // Initialise right multiplicative variables 

345 for( j = 0; j < (ULong) nOfGenerators*2; j++ ) 

346 { 

347 /* 

348 * Fill the multiplicative grid with 1 's, 

349 * where the columns of the grid are 

350 * gen_l~L, gen_l~R, gen_2~L, gen_2~R, gen_{nOf Generators} ~R 

351 * and the rows of the grid are 

352 * monomials [0] , monornialsfl], monomials [listLen] . 

353 */ 

354 grid[i][j] = 1; 

355 } 

356 //If SType > 1 we need to sort the basis first, keeping track of the changes made 

357 if( SType > 1 ) tracking[i] = i; 

358 i++; 

359 list = list — > rest; // Advance the list 

360 } 
361 

362 if( pi > 7 ) printf("Arrays u Set u Up u (size u of u lnput u basis u =u'/ou)\ii", listLen); 

363 

364 //If SType > 1 and there is more than one polynomial in the basis, 

365 // we need to sort the basis w.r.t. DegRevLex (Greatest first) in order 

366 / / to be able to apply the algorithm. 

367 if( ( SType > 1 ) && ( listLen > 1 ) ) 

368 { 

multiplicativcQuickSort( monomials, monLcngth, tracking, 0, listLcn — 1 ); 

370 

371 if( pi > 6 ) 

372 { 
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373 printf( " Sorted u Input u = u \n" ) ; 

374 for( i = 0; i < listLen; i++ ) printf('7.s\n", fMonToStr( monomials[i] ) ); 

375 } 

376 } 
377 

378 /* 



379 * Now exclude multiplicative variables based on overlaps 

380 */ 
381 

382 // For each monomial 

383 for( i = 0; i < listLen; i++ ) 

384 { 

385 thresholdBroken = 0; 

386 for( j = i; j < listLen; jH — h ) // For each monomial less than or equal to monomial i in DHL 

387 { 

388 /* 

389 * To look for subwords, the length of monomial j has to 

390 * be less than the length of monomial i. We use the variable 

391 * thresholdBroken to store whether monomials of length less 

392 * than the length of monomial i have been encountered yet, 

393 * and obviously we must have j > i for this to be the case. 

394 */ 

395 if( ( j > i ) && ( thresholdBroken == ) ) 

396 { 

if( rnonLength[j] < monLength [i] ) 

thresholdBroken = 1; // if deg(j) < deg(i) we can now start to consider subwords 

399 } 

if( ( thresholdBroken == 1 ) && ( EType != 5 ) ) // Stage 1: Look for subwords 

401 { 

402 first = 1; 

403 // There are monLength[i] — monLengthfj] + 1 test subwords in all 

404 limit = monLength [i] — monLengthfj] + 1; 

405 // Test whether monomial j is a subword of monomial i, starting with the first subword 

406 result = fMonSubwordOf( monomials[j] , monomials [i], first ); 

if( pi > 8 ) printf("iMonSubwordOf (u°/.s,u'/.s, u , /.Uu)u=u°/.u\ii", fMonToStr( monomials[j] ), 
408 fMonToStr( monomials[i] ), first, result ); 

409 

410 while( result != ) // While there are subwords to be processed 

411 { 

412 if( IType == 1 ) // Left Overlap Division 

413 { 

if( result < limit ) 
415 { 

if( ( EType < 4 ) 1 1 ( ( EType == 4 ) && ( result == 1 ) ) ) 

417 { 

418 /* 

419 * Exclude right multiplicative variable — overlap of type 'B' or 'C 

420 * monomial[i] 

421 * x monomialfj] (space on the right) 

422 * Note: the above diagram ( and the following diagrams ) may 

423 * not appear correctly in Appendix B due to using flexible columns. 

424 * The correct diagrams ( referenced by the letters 'A' to 'D' can 

425 * be found in the README file in Appendix B. 
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426 */ 

427 generator = fMonSubWordLen( monomials [i] , result + monLength [j] , 1 ); 

428 letterVall = ASCIIVal( fMonLeadVar( generator ) ) - 1; 

429 grid[j] [2*lctterVall+l] = 0; // Set right non multiplicative 

430 } 

431 } 

432 else if( EType == 3 ) 

433 { 

434 /* 

435 * Exclude left multiplicative variable — overlap of type 'D' 

436 * rnonomial[i] 

437 * x monomialfj] (no space on the right) 

438 */ 

439 generator = fMonSubWordLen( monomials [i] , result— 1, 1 ); 
letterVall = ASCIIVal( fMonLeadVar( generator ) ) - 1; 

111 grid[j] [2*letterVall] = 0; // Set left non multiplicative 

442 } 

443 } 

444 else // Right Overlap Division 

445 { 

if( result > 1 ) 

447 { 

448 if( ( EType < 4 ) 1 1 ( ( EType == 4 ) && ( result == limit ) ) ) 

449 { 

450 /* 

451 * Exclude left multiplicative variable — overlap of type 'B' or 'C 

452 * monomialfi] 

453 * x monomialfj] (space on the left) 

454 */ 

455 generator = fMonSubWordLen( monomials [i], result— 1, 1 ); 

456 letterVall = ASCIIVal( fMonLeadVar( generator ) ) - 1; 

457 grid[j] [2*letterVall] = 0; // Set left non multiplicative 

458 } 

459 } 

460 else if( EType == 3 ) 

461 { 

462 /* 

463 * Exclude right multiplicative variable — overlap of type 'D ' 

464 * rnonomial[i] 

465 * x monomialfj] (no space on the left) 

466 */ 

467 generator = fMonSubWordLen( monomials [i], result + rnonl.ength j], 1 ); 

468 letterVall = ASCIIVal( fMonLeadVar( generator ) ) - 1; 

469 grid[j] [2*letterVall+l] = 0; // Set right non multiplicative 

470 } 

471 } 
472 

473 // We will now look for the next available subword 

474 first = result + 1; 

475 if( first <= limit ) // If the limit has not been exceeded 

476 { 

477 result = fMonSubwordOf( monomials[j], monomials[i] . first ); // Look for more subwords 
if( pi > 8 ) printf("fMonSubwordOf CuXs , u'/.s , u '/.u u ) u=u'/.u\n" , fMonToStr( monomials[j] ), 
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479 fMonToStr( monomials[i] ), first, result ); 

480 } 

481 else // Otherwise exit from the loop 

482 result = 0; 

483 } 

484 } 

485 

486 / / Stage 2: Look for prefixes 

487 first = 1; 

488 // There are monLengthfj] — 1 test prefixes in all 

489 limit = monLengthfj] — 1; 

490 // Test whether a suffix of monomial j is a prefix of monomial i, starting with the prefix of length 1 

491 result = !MonPrefixOf( monomials [j], monomials[i], first, limit ); 

if( pi > 8 ) printf("fMonPrefixQf ( u y,s, u y„s, u , /,u, u y.u u ) u =u'/.u\n", fMonToStr( monomials[j] ), 
493 fMonToStr( monomials[i] ), first, limit, result ); 

494 

495 while( result != ) // While there are prefixes to be processed 

496 { 

497 /* 

498 * Possibly exclude right multiplicative variable — overlap of type 'A ' 

499 * 1 monomial[i] 

500 * 2 monomialfj] 

501 */ 

502 generator = !MonSubWordLen( monomials [j], monLengthfj] — result, 1 ); 

503 letterVall = ASCIIVal( fMonLeadVar( generator ) ) - 1; 

504 generator = !MonSubWordLen( monomials [i] , result + 1, 1 ); 

505 letterVal2 = ASCIIVal( fMonLeadVar( generator ) ) - 1; 

506 

507 if( IType == 1 ) // Left Overlap Division 

508 { 

509 if( EType != 3 ) // Assign right nonmultiplicative 

510 { 

511 grid[j] [2*letterVal2+l] = 0; // Set j right non multiplicative for '2' 

512 } 

513 else // Assign nonmultiplicative only if both currently multiplicative 

514 { 

515 // If monomial i is left multiplicative for '1' and j right multiplicative for '2' 

516 if( grid[i][2*letterVall] + grid[j] [2*letterVal2+l] == 2 ) 

517 grid[j] [2*lctterVal2+l] = 0; // Set j right non multiplicative for '2' 

518 } 

519 } 

520 else // Right Overlap Division 

521 { 

522 if( EType != 3 ) // Assign left nonmultiplicative 

523 { 

524 grid[i] [2*letterVall] = 0; // Set i left non multiplicative for '1' 

525 } 

526 else // Assign nonmultiplicative only if both currently multiplicative 

527 { 

528 //^f monomial i is left multiplicative for '1 ' and j right multiplicative for '2' 

529 if( grid[i][2*letterVall] + grid[j] [2*letterVal2+l] == 2 ) 

530 grid[i] [2*letterVall] = 0; // Set i left non multiplicative for '1' 

531 } 
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532 } 
533 

534 / / We will now look for the next available suffix 

535 first = result + 1; 

536 if( first <= limit ) // If the limit has not been exceeded 

537 { 

538 result = fMonPrefixOf( monomials[j] , monomials [i], first, limit ); // Look for more prefixes 

539 if( pi > 8 ) printf("fMonPrefixOf ( u y.s,u , /.s,u'/.u,u'/.u u )u=u'/.u\n", fMonToStr( monomials[j] ), 

540 fMonToStr( monomials[i] ), first, limit, result ); 

541 } 

542 else // Otherwise exit from the loop 

543 result = 0; 

544 } 

545 

546 / / Stage 3: Look for suffixes 

547 first = 1; 

548 // There are monLengthfj] — 1 test suffixes in all 

549 limit = monLengthfj] — 1; 

550 / / Test whether a prefix of monomial j is a suffix of monomial i, starting with the suffix of length 1 

551 result = fMonSuffixOf( monomials[j] , monomials[i], first, limit ); 

552 if( pi > 8 ) printf("fMonSuffixOf (u , /.s > u%s >u y.u,u7.Uu)u=u%u\n", fMonToStr( monomials[j] ), 

553 fMonToStr( monomials[i] ), first, limit, result ); 

554 

555 while( result != ) // While there are suffixes to be processed 

556 { 

557 /* 

558 * Possibly exclude left multiplicative variable — overlap of type 'A ' 

559 * 1 monomial[i] 

560 * 2 monomialfj] 

561 */ 

562 generator = fMonSubWordLen( monomials [j], result + 1, 1 ); 

563 letterVall = ASCIIVal( fMonLeadVar( generator ) ) - 1; 

564 generator = fMonSubWordLcn( monomials [i] , monLcngth[i] — result, 1 ); 

565 letterVal2 = ASCIIVal( fMonLeadVar( generator ) ) - 1; 

566 

567 if( IType == 1 ) // Left Overlap Division 

568 { 

569 if( EType != 3 ) // Assign right nonmultiplicative 

570 { 

571 grid[i] [2*letterVall+l] = 0; // Set i right non multiplicative for '1' 

572 } 

573 else // Assign nonmultiplicative only if both currently multiplicative 

574 { 

575 //If monomial i is right multiplicative for '1' and j left multiplicative for '2 ' 

576 if( grid[i][2*letterVall+l] + grid[j] [2*letterVal2] == 2 ) 

577 grid[i] [2*letterVall+l] = 0; // Set i right non multiplicative for '1' 

578 } 

579 } 

580 else // Right Overlap Division 

581 { 

582 if( EType != 3 ) // Assign left nonmultiplicative 

583 { 

584 grid[j] [2*letterVal2] = 0; // Set j left non multiplicative for '2' 
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585 } 

586 else // Assign nonrnultiplicative only if both currently multiplicative 

587 { 

588 // If monomial i is right multiplicative for '1' and j left multiplicative for '2' 

589 if( grid[i][2*letterVall+l] + grid[j] [2*letterVal2] == 2 ) 

590 grid[j] [2*lcttcrVal2] = 0; // Set j left non multiplicative for '2' 

591 } 

592 } 
593 

594 // We will now look for the next available suffix 

595 first = result + 1; 

596 if( first <= limit ) // If the limit has not been exceeded 

597 { 

598 result = fMonSuffixOf( monomials[j], monomials [i], first, limit ); // Look for more suffixes 
if( pi > 8 ) printf("fMonSuff ixOf ( u '/„s >u '/.s , u '/.u, u 7.u u ) u=u°/.u\n" , fMonToStr( monomials[j] ), 

600 fMonToStr( monomials[i] ), first, limit, result ); 

601 } 

602 else // Otherwise exit from the loop 

603 result = 0; 

604 } 



605 } 

606 } 
607 

608 if( EType == 2 ) 

609 { 



610 // Ensure all cones are disjoint 

611 for( i = listLen; i > 0; i ) // For each monomial (working up) 

612 { 

613 for( j = listLen; j>0;j )// For each monomial 

614 { 

615 /* 

616 * We will now make sure that some variable in monomialfj] is 

617 * right (left) nonrnultiplicative for monomialfi]. 

618 */ 
619 

620 // Assume to begin with that the above holds 

621 if( IType == 1 ) 

622 { 

623 first = 1; // Used to find the first variable 

624 excludeL = 0; 

625 } 

626 else excludeR = 0; 

627 

628 monExcl = monomials[j — 1]; // Extract a monomial for processing 

629 len = fMonLength ( monExcl ); // Find the length of monExcl 
630 

631 while( ( len > ) && ( ( excludeL + excludeR ) != 1 ) ) // For each variable in monomial[j] 

632 { 

633 len = len — fMonLeadExp( monExcl ); 

634 

635 // Extract a variable 

636 letterVall = ASCIIVal( fMonLeadVar( monExcl ) ) - 1; 

637 
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638 if( IType == 1 ) 

639 { 

640 if( first == 1 ) 

641 { 

642 letter Val2 = letter Vail; // Store the first variable encountered 

643 first = 0; // To ensure this code only runs once 

644 } 

645 } 
646 

647 if( IType == 1 ) // Left Overlap Division 

648 { 

649 //^f this variable is right nonmultiplicative for monomial [i], change excludeL 

650 if( grid[i-l][2*lctterVall+l] == ) excludeL = 1; 

651 } 

652 else // Right Overlap Division 

653 { 

654 //U this variable is left nonmultiplicative for monomial[i], change excludeR 

655 if( grid[i-l][2*letterVall] == ) excludeR = 1; 

656 } 

657 monExcl = fMonTailFac( monExcl ); // Get ready to look at the next variable 

658 } 
659 

660 if( IType == 1 ) // Left Overlap Division 

661 { 

662 // If no variable was right nonmultiplicative for monomial [i]... 

663 if( excludeL == ) 

664 grid[i— 1] [2*letterVal2+l] = 0; // ...set the first variable encountered to be right nonmultiplicative 

665 } 

666 else // Right Overlap Division 

667 { 

668 // If no variable was left nonmultiplicative for monomial [i]... 

669 if( excludeR == ) 

grid[i— 1] [2*letterVall] = 0; // ...set the last variable encountered to be left nonmultiplicative 

671 } 

672 } 

673 } 

674 } 
675 

676 // Provide some intermediate output information 

677 if( pi > 6 ) 

678 { 

679 printf("Multiplicative u Grid:\n"); 

680 for( i = 0; i < listLen; i++ ) 

681 { 

682 printf("Monomial u '/,u u = u y,s : \n", i, fMonToStr( monomials [i] ) ); 

683 for( j = 0; j < (ULong) nOfGenerators * 2; j++ ) prratf('7.i,u", grid[i][j] ); 

684 printf("\n"); 

685 } 

686 printf("\n"); 

687 } 

688 

689 /* 

690 * Convert the grid to 2 arrays of FMons, where 
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691 * each FMon stores a list of multiplicative variables 

692 * in increasing variable order 

693 */ 
694 

695 if( SType > 1 ) // Need to sort as well 

696 { 

697 // Convert the grid to monomial data 

698 for( i = 0; i < listLen; H — h ) // For each monomial 

699 { 

for( j = 0; j < (ULong) nOfGcnerators; jH — h ) // For each variable 

701 { 

702 if( grid[i][2*j] ==!)// LEFT Assigned 

703 { 

704 // Multiply on the left by a multiplicative variable 

705 leftMult [tracking [i]] = fMonTimes( leftMult [tracking [i]], ASCIIMon( j+1 ) ); 

706 } 

707 if( grid[i][2*j+l] ==!)// RIGHT Assigned 

708 { 

709 // Multiply on the left by a multiplicative variable 

710 rightMult[tracking[i]] = fMonTimes( rightMult [tracking [i] ] , ASCIIMon( j+1 ) ); 

711 } 

712 } 

713 } 

714 } 

715 else // No sorting reguired 

716 { 

717 // Convert the grid to monomial data 

718 for( i = 0; i < listLen; iH — (- ) // For each monomial 

719 { 

720 for( j = 0; j < (ULong) nOfGcnerators; jH — h ) // For each variable 

721 { 

722 if( grid[i][2*j] ==!)// LEFT Assigned 

723 { 

724 // Multiply on the left by a multiplicative variable 

725 leftMult[i] = fMonTimes( leftMult[i], ASCIIMon( j+1 ) ); 

726 } 

727 if( grid[i][2*j+l] ==!)// RIGHT Assigned 

728 { 

729 // Multiply on the left by a multiplicative variable 

730 rightMult[i] = fMonTimes( rightMult [i] , ASCIIMon( j+1 ) ); 

731 } 

732 } 

733 } 

734 } 
735 

736 / / Convert the two arrays of FMons to an FMonPairList 

737 for( i = 0; i < listLen; i++ ) 

738 output = fMonPairListPush( leftMult [i], rightMult [i] , output ); 

739 

740 // Provide some final output information 

741 if( pi > 3 ) 

742 { 

743 printf("0verlapDiv ' s u 0utput u (Lef t , u Right) u = u \n"); 
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fMonPairListMultDisplay( fMonPairListRev( output ) ); 

745 } 
746 

747 // Return the reversed list (it was constructed in reverse) 

748 return fMonPairListFXRev( output ); 

749 } 
750 

751 /* 

752 * ====================================== 

753 * Polynomial Reduction and Basis Completion Functions 

754 * ====================================== 

755 */ 
756 

757 /* 

758 * Function Name: IPolyReduce 

759 * 

760 * Overview: Reduces 1st arg w.r.t. 2nd arg (list) and 3rd arg (vars) 

761 * 

762 * Detail: Given a polynomial jpoly_, this function involutively 

763 * reduces the polynomial with respect to the given FAlgList _iist_ 

764 * with associated left and right multiplicative variables _vars_. 

765 * The type of reduction (head reduction / full reduction) is 

766 * controlled by the global variable headReduce. 

767 * // IType > 3, we can take advantage of fast global reduction. 

768 * 

769 * External Variables Required: ULong nRed; 

770 * int IType, pi; 

771 * Global Variables Used: int headReduce; 

772 * 

773 */ 

774 FAlg 

775 IPolyReduce ( poly, list, vars ) 

776 FAlg poly; 

777 FAlgList list; 

778 FMonPairList vars; 

779 { 

780 ULong i, numRulcs = fAlgListLength( list ), len, 

781 cutoffL, cutoffR, value, lenOrig, lenSub; 

782 FAlg LHSA[numRules], back = fAlgZeroQ, lead, upgrade; 

783 FMonPairList factors = fMonPairListNul; 

784 FMon LHSM [numRules] , LHSVL[numRules], LHSVR[numRules], 

785 leadMonomial, leadLoopMonomial, JLeft, JRight, 

786 facLft, facRt, JMon; 

787 Qlnteger LHSQ [numRulcs], IcadQ, IcadLoopQ, lcmQ; 

788 short flag, toggle, M; 

789 int appears; 
790 

791 // Catch special case list is empty 

792 if( 111st ) return poly; 

793 

794 / / Convert the input list of polynomials to an array and 

795 // create arrays of lead monomials and lead coefficients 

796 for( i = 0; i < numRules; i++ ) 
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797 { 

798 if( pi > 5 ) printf("Polyu7.Uu=u'/.s\n", i+1, fAlgToStr( list -> first ) ); 

799 LHSA[i] = list -> first; 

800 LHSM[i] = fAlgLeadMonom( list -> first ); 

801 LHSQ[i] = fAlgLeadCoef( list -> first ); 

802 if( IType < 3 ) // Using Local Division 

803 { 

804 // Create array of multiplicative variables 

805 LHSVL[i] = vars — > 1ft; 

806 LHSVR[i] = vars -> rt; 

807 vars = vars — > rest; 

808 } 

809 list = list -> rest; 

810 } 
811 

812 // We will now recursively reduce every term in the polynomial 

813 // until no more reductions are possible 

814 while( fAlgIsZero( poly ) == (Bool) ) 

815 { 

816 if( pi > 5 ) printf("Looking u at u Lead u Term u of u '/,s\n", fAlgToStr( poly ) ); 

817 toggle = 1; // Assume no reductions are possible to begin with 

818 lead = fAlgLeadTerm( poly ); 

819 leadMonomial = fAlgLeadMonom( lead ); 

820 leadQ = fAlgLeadCoef( lead ); 

821 i = 0; 
822 

823 while( i < numRules ) // For each polynomial in the list 

824 { 

825 if( IType >= 3 ) lenOrig = fMonLength( leadMonomial ); 

826 leadLoopMonomial = LHSM[i]; // Pick a test monomial 

827 flag = 0; 

828 

829 if( IType < 3 ) // Local Division 

830 { 

831 // Does the ith polynomial divide our polynomial? 

832 //If s0 > place all possible ways of doing this in factors 

833 factors = fMonDiv( leadMonomial, leadLoopMonomial, &flag ); 

834 } 

835 else 

836 { 

837 if( IType == 5 ) 

838 factors = fMonPairListNul; // No divisors w.r.t. Empty Division 

839 else 

840 { 

841 lenSub = fMonLength( leadLoopMonomial ); 

842 

843 // Check if a prefix / suffix is possible 

844 if( lenSub <= lenOrig ) 

845 { 

846 if( IType == 3 ) // Left Division; look for Suffix 

847 { 

848 if( fMonEqual( leadLoopMonomial, fMonSuffix( leadMonomial, lenSub ) ) == (Bool) 1 ) 

849 { 
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850 if( lcnOrig == lcnSub ) 

851 factors = fMonPairListSingle( fMonOne(), fMoriOne() ); 

852 else 

factors = fMonPairListSinglc( fMonPrefix( IcadMonomial, lcnOrig— lcnSub ), fMonOne() ); 

854 flag = 1; 

855 } 

856 } 

857 else if( IType == 4 ) // Right Division; look for Prefix 

858 { 

859 if( fMonEqual( leadLoopMonomial, fMonPrefix( leadMonomial, lenSub ) ) == (Bool) 1 ) 

860 { 

861 if( lcnOrig == lenSub ) 

862 factors = fMonPairListSingle( fMonOne(), fMonOne() ); 

863 else 

864 factors = fMonPairListSingle( fMonOne(), fMonSuffix( leadMonomial, lenOrig- lenSub ) ); 

865 flag = 1; 

866 } 

867 } 

868 } 

869 } 

870 } 
871 

872 if( flag == 1 ) // i.e. leadLoopMonomial divides leadMonomial 

873 { 

874 M = 0; // Assume that the first conventional division is not an involutive division 
875 

876 // While there are conventional divisions left to look at and 

877 // while none of these have yet proved to be involutive divisions 

878 while( ( fMonPairListLength( factors ) > ) && ( M == ) ) 

879 { 

880 // Assume that this conventional division is an involutive division 

881 M = 1; 

882 if( IType < 3 ) // Local Division 

883 { 

884 // Extract the ith left & right multiplicative variables 

885 JLeft = LHSVL[i]; 

886 JRight = LHSVR[i]; 

887 

888 / / Extract the left and right factors 

889 facLft = factors -> 1ft; 

890 facRt = factors -> rt; 
891 

892 // Test all variables in facLft for left multiplicability in the ith monomial 

893 len = fMonLength( facLft ); 
894 

895 // Decide whether one/all variables in facLft are left multiplicative 

896 if( MType == 1 ) // Right— most variable checked only 

897 { 

898 if( len > ) 

899 { 

JMon = fMonSuffix( facLft, 1 ); 

901 appears = fMonIsMultiplicative( JMon, JLeft ); 

902 //If the generator doesn 't appear this is not an involutive division 
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903 if( appears == ) M = 0; 

904 } 

905 } 

906 else // All variables checked 

907 { 

908 while( len > ) 

909 { 

910 len = len - fMonLeadExp ( facLft ); 

911 // Extract a generator 

912 JMon = lMonPrefix( facLft, 1 ); 

913 // Test to see if the generator appears in the list of left multiplicative variables 

914 appears = fMonIsMultiplicative( JMon, JLeft ); 

915 // If the generator doesn't appear this is not an involutive division 

916 if( appears == ) 

917 { 

918 M = 0; 

919 break; // Exit from the while loop 

920 } 

921 facLft = fMonTailFac( facLft ); // Get ready to look at the next generator 

922 } 

923 } 
924 

925 // Test all variables in facRt for right multiplicability in the ith monomial 

926 if( M == 1 ) 

927 { 

928 len = fMonLength( facRt ); 

929 

930 // Decide whether one/all variables in facRt are left multiplicative 

931 if( MType == 1 ) // Left— most variable checked only 

932 { 

933 if( len > ) 

934 { 

935 JMon = fMonPrefix( facRt, 1 ); 

936 appears = fMonIsMultiplicative( JMon, JRight ); 

937 // // the generator doesn't appear this is not an involutive division 

938 if( appears == ) M = 0; 

939 } 

940 } 

911 else // All variables checked 

942 { 

943 while( len > ) 

944 { 

945 len = len - !MonLeadExp( facRt ); 

946 // Extract a generator 

947 JMon = fMonPrefix( facRt, 1 ); 

948 // Test to see if the generator appears in the list of right multiplicative variables 

949 appears = fMonIsMultiplicative( JMon, JRight ); 

950 //U the generator doesn't appear this is not an involutive division 

951 if( appears == ) 

952 { 

953 M = 0; 

954 break; // Exit from the while loop 

955 } 
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956 facRt = fMonTailFac( facRt ); 

957 } 

958 } 

959 } 

960 } 

961 else // Global division 

962 { 

963 M = 1; // Already potentially found an involutive divisor, 

964 // but include code below for reference 
965 

966 /* 

967 // Obtain global cutoff positions 

968 iff IType == 3 ) LMultVarsf leadLoop Monomial, BcutoffL, &cutoffR ); 

969 else iff IType == 4 ) RMultVarsf leadLoop Monomial, &cutoffL, BcutoffR ); 

970 else EMultVarsf leadLoopMonomial, &cutoffL, ScutoffR ); 

971 iff pi > 4 ) printff" cutoff (%s) = (%u, %u)\n", fMonToStrf leadLoopMonomial ), cutoffL, cutoffR ); 
972 

973 / / Extract the left and right factors 

974 facLft = factors -> Ift; 

975 facRt = factors — > rt; 
976 

977 // Test all variables in facLft for left multiplicability in the ith monomial 

978 len = fMonLengthf facLft ); 
979 

980 // Decide whether one/all variables in facLft are left multiplicative 

981 iff MType == 1 ) // Right— most variable checked only 

982 { 

983 iff len > ) 

984 { 

985 JMon = fMonSuffixf facLft, 1 ); 

986 value = ASCIIValf fMonLeadVarf JMon ) ); 

987 iff value > cutoffR ) M = 0; 

988 } 

989 } 

990 else // All variables checked 

991 { 

992 whilef len > ) 

993 { 

994 len = len — fMonLeadExpf facLft ); 

995 // Obtain the ASCII value of the next generator 

996 value = ASCIIValf fMonLeadVarf facLft ) ); 

997 iff value > cutoffR ) // If the generator is not left multiplicative 

998 { 

999 M = 0; 

1000 break; // Exit from the while loop 

1001 } 

1002 facLft = fMonTailFacf facLft ); 

1003 } 

1004 } 
1005 

1006 // Test all variables in facRt for right multiplicability in the ith monomial 

1007 len = fMonLengthf facRt ); 
1008 
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1009 // Decide whether one/all variables in facRt are left multiplicative 

1010 if( MType == 1 ) // Left— most variable checked only 

1011 { 

1012 iff len> ) 

1013 { 

1014 value = ASCIIVal( fMonLeadVar( facRt ) ); 

1015 if( value < cutoffL ) M = 0; 

1016 } 

1017 } 

1018 else // All variables checked 

1019 { 

1020 whilef len > ) 

1021 { 

1022 len = len — fMonLeadExpf facRt ); 

1023 // Obtain the ASCII value of the next generator 

1024 value = ASCIIVal( fMonLeadVar( facRt ) ); 

1025 if( value < cutoffL ) // If the generator is not right multiplicative 

1026 { 

1027 M = 0; 

1028 break; // Exit from the while loop 

1029 } 

1030 facRt = fMonTailFac( facRt ); 

1031 } 

1032 } 

1033 */ 

1034 } 
1035 

1036 // If this conventional division wasn't involutive, look at the next division 

1037 if( M == ) factors = factors -> rest; 

1038 } 
1039 

1040 // If an involutive division was found 

1041 if( M == 1 ) 

1042 { 

1043 if( pi > 1 ) nRedH — h; // Increase the number of reductions carried out 

1044 if( pi > 5 ) printf("Found u , /,s u = u (y,s)u*u('/.s)u*u('/.s)\n", fMonToStr( leadMonomial ), 

1045 fMonToStr( factors -> 1ft ), fMonToStr( leadLoopMonomial ), 

1046 fMonToStr( factors -> rt ) ); 

1047 toggle = 0; // Indicate a reduction has been carried out to exit the loop 

1048 leadLoopQ = LHSQ[i]; // Pick the divisor's leading coefficient 

1049 lcmQ = AltLCMQInteger( leadQ, leadLoopQ ); // Pick 'nice' cancelling coefficients 
1050 

1051 // Construct poly #i * — 1 * coefficient to get lead terms the same 

1052 upgrade = fAlgTimes( fAlgMonom( qOneQ, factors -> 1ft ), LHSA[i] ); 

upgrade = fAlgTimes( upgrade, fAlgMonom( qNegate( qDivide( lcmQ, leadLoopQ ) ), factors — > rt ) ); 

1054 

1055 // Add in poly * coefficient to cancel off the lead terms 

1056 upgrade = fAlgPlus( upgrade, fAlgScaTimes( qDivide( lcmQ, leadQ ), poly ) ); 

1057 

1058 // We must also now multiply the current discarded remainder by a factor 

1059 back = fAlgScaTimcs( qDivide( lcmQ, leadQ ), back ); 

1060 poly = upgrade; //In the next iteration we will be reducing the new polynomial upgrade 

if( pi > 5 ) printf("New u Word u = u 7,s; u New u Remainder u = u y,s\n", fAlgToStr( poly ), fAlgToStr( back ) ); 
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1062 } 

1063 } 

1064 if( toggle == 1 ) // The ith polynomial did not involutively divide poly 

1065 i++; 

1066 else //A reduction was carried out, exit the loop 

1067 i = numRules; 

1068 } 
1069 

1070 if( toggle == 1 ) // No reductions were carried out; now look at the next term 

1071 { 

1072 //If only head reduction is required, return reducer 

1073 if( headRcducc == 1 ) return poly; 
1074 

1075 // Otherwise add lead term to remainder and simplify the rest 

1076 lead = fAlgLeadTerm( poly ); 

1077 back = fAlgPlus( back, lead ); 

1078 poly = fAlgPlus( fAlgNegate( lead ), poly ); 

1079 if( pi > 5 ) printf("New u Remainderu=u , /.s\n", fAlgToStr( poly ) ); 

1080 } 

1081 } 
1082 

1083 return back; // Return the reduced and simplified polynomial 



1084 } 
1085 

1086 /* 

1087 * Function Name: IAutoreduceFull 

1088 * 

1089 * Overview: Autoreduces an FAlgList recursively until no more reductions are possible 

1090 * 

1091 * Detail: This function involutively reduces each 

1092 * member of an FAlgList w.r.t. all the other members 

1093 * of the list, removing the polynomial from the list 

1094 * if it is involutively reduced to 0. This process is 

1095 * iterated until no more such reductions are possible. 

1096 * 

1097 * External Variables Required: int degRestrict, IType, pi, SType; 

1098 * Global Variables Used: ULong d, twod; 

1099 * 

1100 */ 

1101 FAlgList 

1102 IAutoreduceFull ( input ) 

1103 FAlgList input; 

1104 { 



1105 FAlg oldPoly, newPoly; 

1106 FAlgList new, old, oldCopy; 

1107 FMonPairList vars = fMonPairListNul; 

1108 ULong pos, pushPos, len = fAlgListLcngth( input ); 
1109 

1110 // If the input basis has more than one element 

1111 if( len > 1 ) 

1112 { 

1113 // Start by reducing the final element (working backwards means 

1114 // that less work has to be done calculating multiplicative variables) 
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1115 pos = len; 

1116 // If we are using a local division and the basis is sorted by DegRevLex, 

1117 // the last polynomial is irreducible so we do not have to consider it. 

1118 if( ( IType < 3 ) && ( SType == 1 ) ) pos ; 

1119 

1120 // Make a copy of the input basis for traversal 

1121 old = fAlgListCopy( input ); 
1122 

1123 while( pos > ) // For each polynomial in old 

1124 { 

1125 // Extract the pos—th element of the basis 

1126 oldPoly = fAlgListNumber( pos, old ); 

if( pi > 2 ) printf( "Looking u at u element u p u = u '/,s u of u basis\n", fAlgToStr( oldPoly ) ); 

1128 

1129 // Construct basis without 'poly' 

1130 oldCopy = fAlgListCopy( old ); // Make a copy of old 
1131 

1132 // Calculate Multiplicative Variables if using a local division 

1133 if( IType < 3 ) 

1134 { 

1135 vars = OverlapDiv( oldCopy ); 

1136 vars = fMonPairListRcmovcNumber( pos, vars ); 

1137 } 
1138 

1139 new = fAlgListFXRem( old, oldPoly ); // Remove oldPoly from old 

1140 old = fAlgListCopy( oldCopy ); // Restore old 
1141 

1142 //To recap, _oW_ is now unchanged whilst jnew_ holds all 

1143 // the elements of -old_ except _oldPoly_. 
1144 

1145 // Involutively reduce the old polynomial w.r.t. the truncated list 

1146 newPoly = IPoly Reduce ( oldPoly, new, vars ); 
1147 

1148 //If the polynomial did not reduce to 

1149 if( fAlgIsZero( newPoly ) == (Bool) ) 

1150 { 

1151 // Divide the polynomial through by its GCD 

1152 newPoly = findGCD( newPoly ); 

1153 if( pi > 2 ) printf("RoducoduPuto u '/.s\n", fAlgToStr( newPoly ) ); 
1154 

1155 // Check for trivial ideal 

1156 if( fAlgIsOne( newPoly ) == (Bool) 1 ) return fAlgListSingle( fAlgOneQ ); 
1157 

1158 // // the old polynomial is equal to the new polynomial 

1159 // (no reduction took place) 

1160 if( fAlgEqual( oldPoly, newPoly ) == (Bool) 1 ) 

1161 { 

1162 pos ; // We may proceed to look at the next polynomial 

1163 } 

1164 else // Otherwise some reduction took place so we have to start again 

1165 { 

1166 // If we are restricting prolongations based on degree,... 

1167 if( degRcstrict == 1 ) 
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1168 { 

1169 // ...and if the degree of the lead term of the new 

1170 // polynomial exceeds the current bound... 

1171 if( fMonLength( fAlgLeadMonom( newPoly ) ) > d ) 

1172 { 

1173 // ...we must adjust the bound accordingly 

1174 d = fMonLength( fAlgLeadMonom( newPoly ) ); 

1175 if( pi > 1 ) printf("New u value u of u d u = u 7,u\n", d ); 

1176 twod = 2*d; 

1177 } 

1178 } 
1179 

1180 // Add the new polynomial onto the list 

1181 if( IType < 3 ) // Local division 

1182 { 

1183 if( SType == 1 ) // DegRevLex sorted 

1184 { 

1185 // Push the new polynomial onto the list 

1186 old = fAlgListDcgRcvLcxPushPosition( newPoly, new, &pushPos ); 

1187 // If it is inserted into the same position we may continue and look at the next polynomial 

1188 if( pushPos == pos ) pos ; 

1189 // If it is inserted into a later position we continue from one position above 

1190 else if( pushPos > pos ) pos = pushPos — 1; 

1191 // Note: the case pushPos < pos cannot occur 

1192 } 

1193 else if( SType == 2 ) // No sorting 

1194 { 

1195 // Push the new polynomial onto the end of the list 

1196 old = fAlgListAppend( new, fAlgListSingle( newPoly ) ); 

1197 // Return to the end of the list minus one 

1198 // (we know the last element is irreducible) 

1199 pos = fAlgListLength( old ) - 1; 

1200 } 

1201 else // Sorted by main ordering 

1202 { 

1203 // Push the new polynomial onto the list 

1204 old = fAlgListNormalPush( newPoly, new ); 

1205 // Return to the end of the list 

1206 pos = fAlgListLength( old ); 

1207 } 

1208 } 

1209 else // Global division 

1210 { 

1211 // Push the new polynomial onto the end of the list 

1212 old = f AlgList Append ( new, fAlgListSingle( newPoly ) ); 

1213 // Return to the end of the list minus one 

1214 // (we know the last element is irreducible) 

1215 pos = fAlgListLength( old ) - 1; 

1216 } 

1217 } 

1218 } 

1219 else // The polynomial reduced to zero 

1220 { 
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1221 // Remove the polynomial from the list 

1222 old = fAlgListCopy( new ); 

1223 // Continue to look at the next element 

1224 pos ; 

1225 if( pi > 2 ) printf("Reduced u p u to u O\n"); 

1226 } 

1227 } 

1228 } 

1229 else // The input basis is empty or consists of a single polynomial 

1230 return input; 
1231 

1232 // Return the fully autoreduced basis 

1233 return old; 



1234 } 
1235 

1236 /* 

1237 * Function Name: Seiler 

1238 * 

1239 * Overview: Implements Seiler's original algorithm for computing locally involutive bases 

1240 * 

1241 * Detail: Given a list of polynomials , this algorithm computes a 

1242 * Locally Involutive Basis for the input basis by the following 

1243 * iterative method: find all prolongations, choose the 'lowest' 

1244 * one, autoreduce, find all prolongations, ... 

1245 * 

1246 * External Variables Reguired: int degRestrict, IType, nOfGenerators, pi, SType; 

1247 * ULong nOf Prolongations ; 

1248 * Global Variables Used: ULong d, twod; 

1249 * 

1250 */ 

1251 FAlgList 

1252 Seiler( FBasis ) 

1253 FAlgList FBasis; 

1254 { 



1255 FAlgList H = fAlgListNul, HCopy = fAlgListNul, soFar = fAlgListNul, S; 

1256 FAlg g, gNew, h; 

1257 FMonPairList vars = fMonPairListNul, varsCopy, 

1258 factors = fMonPairListNul; 

1259 FMon all, LMh, Lmult, Rmult, nonMultiplicatives; 

1260 ULong prccount, count, degTest, len, i, cutoffL, cutoffR; 

1261 short escape, dcgBound, flag, trip; 
1262 

1263 if( pi > ) printf("\nComputing u an u Involutive u Basis . . An"); 

1264 

1265 if( IType < 3 ) // Local division 

1266 { 

1267 // Create a monomial containing all generators 

1268 all = fMonOne(); 

1269 for( i = 1; i <= (ULong) nOfGenerators; i++ ) 

1270 all = fMonTimes( all, ASCIIMon( i ) ); 

1271 } 
1272 

1273 // If prolongations are restricted by degree 
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1274 if( degRestrict == 1 ) 

1275 { 

1276 d = maxDegree( FBasis ); // Initialise the value of d 

1277 if( pi > 1 ) printf("Initial u value u of u d u = u '/,u\n", d ); 

1278 

1279 /* 

1280 * There is no point in looking at prolongations of length 

1281 * 2*d or more as these cannot possibly be associated with 

1282 * S— Polynomials — they are in effect 'disjoint overlaps'. 

1283 */ 

1284 twod = 2*d; 

1285 } 
1286 

1287 // Turn head reduction off 

1288 headReduce = 0; 
1289 

1290 // Remove duplicates from the input basis 

1291 FBasis = fAlgListRemDups( FBasis ); 
1292 

1293 // If the basis should be kept sorted, do the initial sorting now 

1294 if( ( IType < 3 ) && ( SType != 2 ) ) FBasis = fAlgListSort( FBasis, SType ); 
1295 

1296 // Now Autoreduce FBasis and place the result in H 

1297 if( pi > 1 ) printf("Autoreducing. . An"); 

1298 prccount = fAlgListLcngth( FBasis ); // Determine size of basis before autoreduction 

1299 H = IAutoroducoFull( FBasis ); // Fully autoreduce the basis 

1300 count = fAlgListLcngth( H ); // Determine size of basis after autoreduction 

1301 if( ( pi > ) && ( count < prccount ) ) 

printf("Autoreduction u reduced u the u basiSuto u size u y.u. . .\n", count ); 

1303 

1304 // Check for trivial ideal 

1305 if( ( count == 1 ) & ( fAlgIsOnc( H -> first ) == (Bool) 1 ) ) 

1306 return fAlgListSingle( fAlgOneQ ); 
1307 

1308 /* 

1309 * soFar will store all polynomials that will appear in H 

1310 * at any time so that we do not introduce duplicates into the set. 

1311 * To begin with, all we have encountered are the polynomials 

1312 * in the autoreduced input basis. 

1313 */ 

1314 soFar = fAlgListCopy( H ); 
1315 

1316 escape = 1; // To enable the following while loop to begin 

1317 while( escape == 1 ) 

1318 { 

1319 if( IType < 3 ) // Calculate multiplicative variables for GBasis 

1320 { 

1321 vars = OverlapDiv( H ); 

1322 varsCopy = fMonPairListCopy( vars ); // Make a copy for traversal 

1323 } 
1324 

1325 HCopy = fAlgListCopy( H ); // Make a copy of H for traversal 
1326 
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1327 // S will hold all the possible prolongations 

1328 S = fAlgListNul; 
1329 

1330 while( HCopy ) // For each $h \in H$ 

1331 { 

1332 h = HCopy — > first; // Extract a polynomial 

1333 LMh = fAlgLeadMonom( h ); // Find the lead monomial 

1334 if( pi == 3 ) printf("Analysing u °/,s. . An", fMonToStr( LMh ) ); 

1335 if( pi > 3 ) printfC'Analysingu'/.s. . .\n", fAlgToStr( h ) ); 

1336 HCopy = HCopy — > rest; // Advance to the next polynomial 
1337 

1338 // Assume to begin with that any prolongations of this polynomial are OK 

1339 degBound = 0; 

1340 if( degRestrict == 1 ) // If we are restricting prolongations by degree... 

1341 { 

1342 // ...and if the length of any prolongation of g exceeds the bound... 

1343 if( fMonLength( LMh ) + 1 >= twod ) 

1344 { 

1345 // ..ignore all prolongations involving this polynomial 

1346 degBound = 1; 

1347 if( pi > 2 ) printf("Degree u of u lead u term u exceeds u 2*d-l\n"); 

1348 if( ITypc < 3 ) // Local division — advance to the next polynomial 

1349 varsCopy = varsCopy — > rest; 

1350 } 

1351 } 
1352 

1353 // Step 1 — find all prolongations 
1354 

1355 if( ( IType < 3 ) && ( degBound == ) ) // Local division 

1356 { 

1357 // Extract the left and right multiplicative variables for this polynomial 

1358 Lmult = varsCopy — > 1ft; 

1359 Rmult = varsCopy — > rt; 

1360 varsCopy = varsCopy — > rest; 
1361 

1362 // LEFT PROLONGATIONS 
1363 

1364 // Construct the left nonmultiplicative variables 

1365 nonMultiplicatives = all; 

1366 while( fMonIsOnc( Lmult ) != (Bool) 1 ) // For each left multiplicative variable 

1367 { 

1368 // Eliminate one multiplicative variable 

factors = fMonDivFirst( nonMultiplicatives, fMonPrefix( Lmult, 1 ), &flag ); 

1370 nonMultiplicatives = fMonTimes( factors — > 1ft, factors — > rt ); 

1371 Lmult = fMonRest( Lmult ); 

1372 } 

1373 Lmult = nonMultiplicatives; 

1374 // Find the number of left nonmultiplicative variables 

1375 len = fMonLength( Lmult ); 
1376 

1377 // For each variable $x_i$ that is not Left Multiplicative for $LM(g)$ 

1378 for( i = 1; i <= len; i++ ) 

1379 { 
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1380 if( pi == 3 ) printf("Adding u Lef t u Prolongation u by u variable u #%u u to u S . . An", i ); 

1381 if( pi > 3 ) printf("Adding u Left u Prolongation u by u '/,s u to u S. . An", fMonLcadVar( Lmult ) ); 

1382 S = fAlgListPush( fAlgTimes( fAlgMonom( qOne(), fMonPrcfix( Lmult, 1 ) ), h ), S ); 

1383 Lmult = fMonRest( Lmult ); 

1384 } 
1385 

1386 // BIGHT PROLONGATIONS 
1387 

1388 // Construct the right nonmultiplicative variables 

1389 nonMultiplicatives = all; 

1390 while( fMonIsOnc( Rmult ) != (Bool) 1 ) // For each right multiplicative variable 

1391 { 

1392 // Eliminate one multiplicative variable 

1393 factors = fMonDivFirst( nonMultiplicatives, fMonPrefix( Rmult, 1 ), &flag ); 

1394 nonMultiplicatives = fMonTimes( factors — > 1ft, factors — > rt ); 

1395 Rmult = fMonRest( Rmult ); 

1396 } 

1397 Rmult = nonMultiplicatives; 

1398 // Find the number of right nonmultiplicative variables 

1399 len = fMonLength( Rmult ); 
1400 

1401 // For each variable $x_i$ that is not Right Multiplicative for $LM(g)$ 

1402 for( i = 1; i <= len; i++ ) 

1403 { 

1404 if( pi == 3 ) printf("Adding u Right u Prolongation u by u variable u #'/,u u to u S . . An", i ); 

if( pi > 3 ) printf("Adding u Right u Prolongation u by u '/ s u to u S . . An", fMonLeadVar( Rmult ) ); 
S = fAlgListPush( fAlgTimes( h, fAlgMonom( qOneQ, fMonPrefix( Rmult, 1 ) ) ), S ); 

1407 Rmult = fMonRest( Rmult ); 

1408 } 

1409 } 

1410 else if( ( IType >= 3 ) && ( degBound == ) ) // Global division 

1411 { 

1412 // Find the multiplicative variables for this monomial 

1413 if( IType == 3 ) LMultVars( LMh, fecutoffL, fecutoffR ); 

1414 else if( IType == 4 ) RMultVars( LMh, &cutoflfL, fecutoffR ); 

1415 else EMultVars( LMh, fecutoffL, &cutoffR ); 

if( pi > 4 ) printf("cutoff C/„s) u = u ('/„u, u , /.u)\n", fMonToStr( LMh ), cutofIL, cutoffR ); 

1417 

1418 // LEFT PROLONGATIONS 
1419 

1420 // For each variable $x_i$ that is not Left Multiplicative for $LM(g)$ 

1421 for( i = cutoffR; i < (ULong) nOf Generators; i++ ) 

1422 { 

1423 // Construct a nonmultiplicative variable 

1424 Lmult = ASCIIMon( i+1 ); 
1425 

1426 if( pi == 3 ) printf("Adding u Lef t u Prolongation u by u variable u #%u u to u S . . An", i ); 

if( pi > 3 ) printf("Adding u Left u Prolongation u by u */,s u to u S. . An", fMonToStr( Lmult ) ); 

1428 S = fAlgListPush( fAlgTimes( fAlgMonom( qOne(), Lmult ), h ), S ); 

1429 } 
1430 

1431 // RIGHT PROLONGATIONS 
1432 



APPENDIX B. SOURCE CODE 



319 



1433 // For each variable $x_i$ that is not Right Multiplicative for $LM(g)$ 

1434 for( i = 1; i < cutofiL; i++ ) 

1435 { 

1436 // Construct a nonmultiplicative variable 

1437 Rmult = ASCIIMon( i ); 
1438 

if( pi == 3 ) printf("Adding u Right u Prolongation u by u variable u #'/.u u to u S . . .\n", i— 1 ); 
if( pi > 3 ) printf("AddinguRight u Prolongation u byu'/.s u tOuS. . An", fMonToStr( Rmult ) ); 
S = fAlgListPush( fAlgTimes( h, fAlgMonom( qOne(), Rmult ) ), S ); 

1442 } 

1443 } 

1444 } 
1445 

1446 // Step 2 — Find the lowest prolongation w.r.t. chosen monomial order 
1447 

1448 // Turn head reduction on when finding a suitable prolongation 

1449 hcadReduce = 1; 
1450 

1451 // If there are no prolongations we may exit the loop 

1452 if( !S ) escape = 0; 

1453 else 

1454 { 

1455 // Sort the list of prolongations w.r.t. the chosen monomial order 

1456 S = fAlgListSort( S, 3 ); 

1457 // Reverse the list so that the 'lowest' prolongation comes first 

1458 S = fAlgListFXRev( S ); 
1459 

1460 // Obtain the first non-zero head— reduced element of the list 

1461 g = S — > first; // Extract a prolongation 

1462 trip = 0; 

1463 // While there are prolongations left to look at and while we have 

1464 // not yet found a non-zero head— reduced prolongation 

1465 while( ( fAlgListLength( S ) > ) && ( trip == ) ) 

1466 { 

1467 // Involutively head— reduce the prolongation 

1468 gNew = IPolyReduce( g, H, vars ); 

1469 if( fAlgIsZero( gNew ) == (Bool) ) //If the prolongation did not reduce to zero 

1470 { 

1471 // Turn off head reduction 

1472 headReduce = 0; 

1473 // 'Fully' involutively reduce 

1474 gNew = IPoly Reduce ( gNew, H, vars ); 

1475 gNew = findGCD( gNew ); // Divide through by the CCD 

1476 // Turn head reduction back on 

1477 headReduce = 1; 

1478 // If we have not encountered this polynomial before 

1479 if( fAlgListIsMember( gNew, so-Far ) == (Bool) ) 

1480 { 

1481 trip = 1; // We may exit the loop 

1482 headReduce = 0; // We do not need head reduction any more 

1483 } 

1484 else // Otherwise we go on to look at the next prolongation 

1485 { 
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1486 S = S — > rest; // Advance the list 

1487 if( S ) g = S — > first; // // there are any more prolongations extract one 

1488 } 

1489 } 

1490 else // Otherwise we go on to look at the next prolongation 

1491 { 

1492 S = S — > rest; // Advance the list 

1493 if( S ) g = S — > first; //If there are any more prolongations extract one 

1494 } 

1495 } 
1496 

1497 // If no suitable prolongations were found we may exit the loop 

1498 if( !S ) escape = 0; 

1499 else 

1500 { 

1501 // Step 3 — Add the polynomial to the basis 
1502 

1503 if( pi > 2 ) printf("First u Non-Zero u Reduced u Prolongatioii u = u '/ s\ii", fAlgToStr( g ) ); 

1504 if( pi > 2 ) printf("Prolongation u after u reduction u = u y,s\n", fAlgToStr( gNew ) ); 

1505 nOfProlongationsH — h; // Increase the counter for the number of prolongations processed 
1506 

1507 // Check for trivial ideal 

1508 if( fAlgIsOne( gNew ) == (Bool) 1 ) return fAlgListSingle( fAlgOne() ); 
1509 

1510 // Adjust the prolongation degree bound if necessary 

1511 if( degRestrict == 1 ) 

1512 { 

1513 if( fAlgEqual( g, gNew ) == (Bool) ) // If the polynomial was reduced... 

1514 { 

1515 degTest = fMonLength( fAlgLeadMonom( gNew ) ); 

1516 if( degTest > d ) // ...and if the degree of the new polynomial exceeds the bound... 

1517 { 

1518 // ...adjust the bound accordingly 

1519 d = degTest; 

1520 if( pi > 1 ) printf("New u value u of u d u =u'/.u\n", d ); 

1521 twod = 2*d; 

1522 } 

1523 } 

1524 } 
1525 

1526 // Push the new polynomial onto the list 

1527 if( ITypc < 3 ) // Local division 

1528 { 

1529 if( SType == 1 ) H = fAlgListDegRevLexPush( gNew, H ); // DegRevLex sort 

1530 else if( SType == 2 ) H = fAlgListAppend( H, fAlgListSingle( gNew ) ); //No sorting - just append 

1531 else H = fAlgListNormalPush( gNew, H ); // Sort by monomial ordering 

1532 } 

1533 else H = fAlgListAppcnd( H, fAlgListSingle( gNew ) ); // Just append onto end 
1534 

1535 count H — h; // Increase the counter for the number of polynomials in the basis 

if( pi > 1 ) printf("Added u Polynomial u #'/,u u to u Basis , u namely\n u y,Su\ii" , count, fAlgToStr( gNew ) ); 

1537 if( pi == 1 ) printf("Added u Polynomial u #'/,u u to u Basis . . .\n", count ); 

1538 // Indicate that we have encountered a new polynomial for future reference 
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1539 soFar = fAlgListPush( gNew, soFar ); 

1540 

1541 // Step 4 — Autoreduce 

1542 

1543 precount = count; // Determine size of basis before autoreduction 

1544 H = I AutoreduccFull ( H ); // Fully autoreduce the basis 

1545 count = fAlgListLength( H ); // Determine size of basis after autoreduction 

1546 if( ( pi > ) &&: ( count < precount ) ) 

printf("Autoreduction u reduced u the u basis u to u size u 7,u. . An", count ); 

1548 

1549 / / Check for trivial ideal 

1550 if( ( count == 1 ) && ( fAlgIsOne( H -> first ) == (Bool) 1 ) ) 

1551 return fAlgListSinglc( fAlgOncQ ); 

1552 } 

1553 } 

1554 } 

1555 if( pi > ) printf(". . . Involutive u Basis u Computed . \n"); 

1556 

1557 headReduce = 0; // Reset the value of headReduce 

1558 return H; 



1559 } 
1560 

1561 /* 

1562 * Function Name: Gerdt 

1563 * 

1564 * Overview: Implements Gerdt's advanced algorithm for computing locally involutive bases 

1565 * 

1566 * Detail: Given a list of polynomials, this algorithm computes a 

1567 * Locally Involutive Basis for the input basis using the method 

1568 * outlined in the paper "Involutive Division Technique: 

1569 * Some generalisations and optimisations" by V. P. Gerdt. 

1570 * 

1571 * External Variables Required: int degRestrict, IType, nOfGenerators, pi, SType; 

1572 * ULong nOf Prolongations ; 

1573 * Global Variables Used: ULong d, twod; 

1574 * int headReduce; 

1575 * 

1576 */ 

1577 FAlgList 

1578 Gerdt( FBasis ) 

1579 FAlgList FBasis; 

1580 { 



1581 FAlgList GBasis = fAlgListNul, soFar = fAlgListNul, 

1582 Tp = fAlgListNul, Qp = fAlgListNul, 

1583 Tp2 = fAlgListNul, Qp2 = fAlgListNul; 

1584 FAlg f, g, h, gDotx, candidatcPoly, testPoly; 

1585 FMonPairList Tv = fMonPairListNul, Qv = fMonPairListNul, 

1586 Tv2 = fMonPairListNul, vars = fMonPairListNul; 

1587 FMonList Tm = fMonListNul, Qm = fMonListNul, 

1588 Tm2 = fMonListNul; 

1589 FMonPair P, fVars, gVars, hVars; 

1590 FMon PL, PR, fVarsL, fVarsR, gVarsL, gVarsR, hVarsL, hVarsR, 

1591 LMf, LMg, LMh, all, DL, DR, gen, NML, NMR, u, 
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1592 candidate Variable, mult, compare; 

1593 ULong i, j, candidatePos, count, cutoffL, cutoffR, 

1594 degTest, lowest, precount, pos; 

1595 short add, escape, LorR; 

1596 Bool balance; 



1597 

1598 if( pi > ) printf("\nComputing u an u Involutive u Basis . . An"); 

1599 

1600 if( IType < 3 ) // Local division 

1601 { 



1602 // Create a monomial containing all generators 

1603 all = fMonOne(); 

1604 for( i = 1; i <= (ULong) nOfGenerators; i++ ) 

1605 all = fMonTimes( all, ASCIIMon( i ) ); 

1606 } 
1607 

1608 // If prolongations are restricted by degree 

1609 if( degRestrict == 1 ) 

1610 { 

1611 d = maxDegree( FBasis ); // Initialise the value of d 

1612 if( pi > 1 ) printf("Initial u value u of u d u = u '/,u\n " , d ); 
1613 

1614 /* 

1615 * There is no point in looking at prolongations of length 

1616 * 2*d or more as these cannot possibly be associated with 

1617 * S— Polynomials — they are in effect 'disjoint overlaps'. 

1618 */ 

1619 twod = 2*d; 

1620 } 
1621 

1622 // Turn head reduction off 

1623 headReduce = 0; 
1624 

1625 // Remove duplicates from the input basis 

1626 FBasis = fAlgListRemDups( FBasis ); 
1627 

1628 // If the basis should be kept sorted, do the initial sorting now 

1629 if( ( IType < 3 ) && ( SType != 2 ) ) FBasis = fAlgListSort( FBasis, SType ); 
1630 

1631 // Now Autoreduce FBasis and place the result in FBasis 

1632 if( pi > 1 ) printf("Autoreducing. . An"); 

1633 precount = fAlgListLcngth( FBasis ); // Determine size of basis before autoreduction 

1634 FBasis = IAutoreduceFull( FBasis ); // Fully autoreduce the basis 

1635 count = fAlgListLcngth( FBasis ); // Determine size of basis after autoreduction 

1636 if( ( pi > ) && ( count < precount ) ) 

1637 printf("Autoreduction u reduced u the u basis u to u size u y.u. . An", count ); 

1638 

1639 // Check for trivial ideal 

1640 if( ( count == 1 ) & ( fAlgIsOne( FBasis -> first ) == (Bool) 1 ) ) 

1641 return fAlgListSingle( fAlgOneQ ); 
1642 

1643 /* 

1644 * soFar will store all polynomials that will appear 
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1645 * at any time so that we do not introduce duplicates into the set. 

1646 * To begin with, all we have encountered are the polynomials 

1647 * in the autoreduced input basis. 

1648 */ 

1649 soFar = fAlgListCopy( FBasis ); 
1650 

1651 // Choose g \in F with lowest LM(g) w.r.t. < 

1652 g = fAlgListNumber( ( fAlgListLowest( FBasis ) ), FBasis ); 
1653 

1654 // Add entry (g, LM(g), (\emptyset, \emptyset)) to T 

1655 Tp = fAlgListPush( g, Tp ); 

1656 Tm = fMonListPush( fAlgLeadMonom( g ), Tm ); 

1657 Tv = fMonPairListPush( fMonOne(), fMonOne(), Tv ); 

1658 

1659 // Add entry to G 

1660 GBasis = fAlgListPush( g, GBasis ); 

1661 if( pi > 1 ) printf("Addingu , /.Suto u GuC/.u) . . An", fAlgToStr( g ), fAlgListLength( GBasis ) ); 

1662 else if( pi == 1 ) printf("Added u a u f irst u polynomial u to u G. . .\n"); 

1663 

1664 // For each f \in FBasis\setminus {<?}... 

1665 while( FBasis ) 

1666 { 

1667 f = FBasis -> first; 

1668 if( fAlgEqual( g, f ) == (Bool) ) 

1669 { 

1670 //Add entry (f, LM(f), (\emptyset, \emptyset)) to Q 

1671 Qp = fAlgListPush( f, Qp ); 

1672 Qm = fMonListPush( fAlgLeadMonom( f ), Qm ); 

1673 Qv = fMonPairListPush( fMonOnc(), fMonOncQ, Qv ); 

1674 } 

1675 FBasis = FBasis -> rest; 

1676 } 

1677 if( pi > 3 ) printf("Constructed u Q. . An"); 

1678 

1679 do // Repeat until Q is empty 

1680 { 

1681 h = fAlgZerc-0; 
1682 

1683 // While Q is not empty and h is not equal to 

1684 while( ( fAlgListLength( Qp ) > ) && ( fAlgIsZero( h ) == (Bool) 1 ) ) 

1685 { 

1686 // Choose the g in (g, u (PL, PR) ) \in Q with lowest LM(g) w.r.t. < 

1687 lowest = fAlgListLowest( Qp ); 

1688 g = fAlgListNumber( lowest, Qp ); 

1689 u = fMonListNumber( lowest, Qm ); 

1690 P = fMonPairListNumber( lowest, Qv ); 

1691 if( pi > 2 ) printf("Testing u g u = u y.s. . An", fAlgToStr( g ) ); 

1692 

1693 // Remove entry from Q 

1694 Qp = fAlgListRemoveNumber( lowest, Qp ); 

1695 Qm = fMonListRemoveNumber( lowest, Qm ); 

1696 Qv = fMonPairListRemoveNumber( lowest, Qv ); 
1697 
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1698 if( ITypc < 3 ) // Find Local Multiplicative Variables for GBasis 

1699 vars = OverlapDiv( GBasis ); 
1700 

1701 // If the criterion is false... (to be implemented in the future. ..) 

1702 // if( NCcriterion( g, u, Tp, Tm, GBasis, vars ) == ) 

1703 { 

1704 // ...then find the normal form of g w.r.t. GBasis 

1705 soFar = fAlgListPush( g, soFar ); 

1706 h = IPolyReduce( g, GBasis, vars ); // Find the involutive normal form 

1707 h = findGCD( h ); // Divide through by the CCD 

1708 if( pi > 2 ) printf(" . . . Reduced u g u to u h u = u , /.s . . An", fAlgToStr( h ) ); 

1709 } 

1710 // else if( pi > 2 ) printff"... Criterion used to discard g...\n"); 

1711 } 
1712 

1713 // If h \neq 

1714 if( fAlgIsZcro( h ) == (Bool) ) 

1715 { 

1716 // Add h to GBasis and recalculate multiplicative variables if necessary 

1717 if( IType < 3 ) 

1718 { 

1719 pos = 1; 

1720 if( SType == 1 ) GBasis = fAlgListDegRevLexPushPosition( h, GBasis, &pos ); // DegRevLex sort 

1721 else if( SType == 2 ) GBasis = fAlgListAppend( GBasis, fAlgListSingle( h ) ); // No sorting — just append 

1722 else GBasis = fAlgListNormalPush( h, GBasis ); // Sort by monomial ordering 
1723 

1724 vars = OverlapDiv( GBasis ); // Full recalculate 

1725 } 

1726 else GBasis = fAlgListAppend( GBasis, fAlgListSingle( h ) ); // Just append onto end 
1727 

1728 if( pi > 1 ) printf("Added u 7.s u to u G u C/.u) . . An", fAlgToStr( h ), fAlgListLength( GBasis ) ); 

1729 else if( pi == 1 ) printf("Added u a u polynomial u to u G uuuuuuu (y,u) . . An", fAlgListLcngth( GBasis )); 
1730 

1731 LMh = fAlgLeadMonom( h ); 

1732 

1733 if( degRestrict == 1 ) // If we are restricting prolongations by degree... 

1734 { 

1735 degTest = fMonLength( LMh ); 

1736 if( degTest > d ) // ...and if the degree of the new polynomial exceeds the bound... 

1737 { 

1738 // ...adjust the bound accordingly 

1739 d = degTest; 

1740 if( pi > 1 ) printf("New u value u of u d u = u '/,u\n", d ); 

1741 twod = 2*d; 

1742 } 

1743 } 
1744 

1745 // // LM(h) == LM(g) 

1746 if( fMonEqual( fAlgLeadMonom( g ), LMh ) == (Bool) 1 ) 

1747 { 

1748 // Add entry to T 

1749 Tp = fAlgListPush( h, Tp ); 

1750 Tm = fMonListPush( u, Tm ); 
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1751 if( pi > 4 ) printf("ModifyinguTu(size u '/.u) . . An", fAlgListLength( Tp ) ); 

1752 

1753 // Find intersection of P and NM.I(h, G) 

1754 // (Note: NM_I(h, G) = nonmultiplicative variables) 

1755 PL = P. lft; 

1756 PR = P.rt; 
1757 

1758 if( ITypc < 3 ) // Local division 

1759 { 

1760 // Find NMJ(h, GBasis) 

1761 pos = fAlgListPosition( h, GBasis ); 

1762 hVars = fMonPairListNumber( pos, vars ); 

1763 hVarsL = hVars.lft; 

1764 hVarsR = hVars.rt; 
1765 

1766 NML = fMonOne(); 

1767 NMR = fMonOne(); 

1768 j = 1; 
1769 

1770 // Calculate the intersection 

1771 while( j <= (ULong) nOfGcnerators ) 

1772 { 

1773 gen = ASCIIMon( j ); 
1774 

1775 // If gen appears in PL (nonmultiplicatives) but not in hVarsL (multiplicatives) 

1776 if ( ( fMonIsMultiplicativc( gen, PL ) == 1 ) && ( fMonIsMultiplicative( gen, hVarsL ) == ) ) 

1777 NML = fMonTimes( NML, gen ); // gen appears in the left intersection 

1778 // If gen appears in PR (nonmultiplicatives) but not in hVarsR (multiplicatives) 

1779 if ( ( fMonIsMultiplicative( gen, PR ) == 1 ) && ( fMonIsMultiplicative( gen, hVarsR ) == ) ) 

1780 NMR = fMonTimes( NMR, gen ); // gen appears in the right intersection 
1781 

1782 // Get ready to look at the next variable 

1783 } 

1784 } 

1785 else if( ITypc >= 3 ) // Global division 

1786 { 

1787 // Find the multiplicative variables 

1788 if( ITypc == 3 ) LMultVars( LMh, &cutoffL, &cutoffR ); 

1789 else if( IType == 4 ) RMultVars( LMh, fecutoffL, fecutoffR ); 

1790 else EMultVars( LMh, &cutoffL, &cutoffR ); 

1791 NML = fMonOne(); 

1792 NMR = fMonOne(); 
1793 

1794 // Calculate the left intersection 

1795 for( j = cutoffR+1; j <= (ULong) nOfGenerators; j++ ) 

1796 { 

1797 gen = ASCIIMon( j ); // Obtain a nonmultiplicative variable 

1798 // If it appears in PL it appears in the intersection 

1799 if( fMonIsMultiplicative( gen, PL ) == 1 ) 

1800 NML = fMonTimes( NML, gen ); 

1801 } 
1802 

1803 // Calculate the right intersection 
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1804 for( j = 1; j < cutoffL; j++ ) 

1805 { 

1806 gen = ASCIIMon( j ); // Obtain a nonmultiplicative variable 

1807 // If it appears in PR it appears in the intersection 

1808 if( fMonIsMultiplicative( gen, PR ) == 1 ) 

1809 NMR = fMonTimes( NMR, gen ); 

1810 } 

1811 } 
1812 

1813 // Add an entry to Tv 

1814 Tv = fMonPairListPush( NML, NMR, Tv ); 

1815 } 

1816 else // Add entry to T and adjust the lists 

1817 { 

1818 // Add entry to T 

1819 Tp = fAlgListPush( h, Tp ); 

1820 Tm = fMonListPush( LMh, Tm ); 

1821 Tv = fMonPairListPush( fMonOneQ, fMonOneQ, Tv ); 

1822 if( pi > 4 ) printf("Modifying u Tu(size u y.u) . . An", fAlgListLength( Tp ) ); 

1823 

1824 // Set up lists for next operation 

1825 Tp2 = fAlgListNul; 

1826 Tm2 = fMonListNul; 

1827 Tv2 = fMonPairListNul; 

1828 

1829 // For each (f v, (DL, DR)) \in T 

1830 if( pi > 4 ) printf("Adjusting u Multiplicative u Variables . . An"); 

1831 while( Tp ) 

1832 { 

1833 f = Tp — > first; // Extract a polynomial 

1834 LMf = fAlgLeadMonom( f ); 
1835 

1836 if( pi > 4 ) printf("Testingu(y.s, u '/.s)\n", fMonToStr( LMh ), fMonToStr( LMf ) ); 

1837 

1838 // // LM(h) < LM(f) 

1839 if( theOrdFun( LMh, LMf ) == (Bool) 1 ) 

1840 { 

1841 // Add entry to Q 

1842 Qp = fAlgListPush( Tp -> first, Qp ); 

1843 Qm = fMonListPush( Tm -> first, Qm ); 

1844 Qv = fMonPairListPush( Tv -> 1ft, Tv -> rt, Qv ); 

1845 

1846 // Discard f from GBasis 

1847 GBasis = fAlgListFXRem( GBasis, f ); 

1848 if( pi > 1 ) printf("Discardedu'/.Sufrom u G u ('/.u) . . An", fAlgToStr( f ), fAlgListLength( GBasis ) ); 
else if ( pi == 1 ) printf("Discarded u a u polynomial u f rom u G u (7,u) . . .\n", fAlgListLcngth( GBasis ) ); 

1850 } 

1851 else 

1852 { 

1853 // Keep entry in T 

1854 Tp2 = fAlgListPush( Tp -> first, Tp2 ); 

1855 Tm2 = fMonListPush( Tm -> first, Tm2 ); 

1856 Tv2 = fMonPairListPush( Tv -> 1ft, Tv -> rt, Tv2 ); 
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1857 } 

1858 // Advance the lists to the next entry 

1859 Tp = Tp -> rest; 

1860 Tm = Tm -> rest; 

1861 Tv = Tv -> rest; 

1862 } 
1863 

1864 // Set up lists for next operation 

1865 Tp = fAlgListNul; 

1866 Tm = fMonListNul; 

1867 Tv = IMonPairListNul; 

1868 

1869 // Recalculate multiplicative variables 

1870 if( ITypc < 3 ) vars = OverlapDiv( GBasis ); 
1871 

1872 // For each (f, v, (DL, DR)) \in T 

1873 while( Tp2 ) 

1874 { 

1875 // Keep f and v as they are 

1876 f = Tp2 -> first; 

1877 Tp = fAlgListPush( f, Tp ); 

1878 Tm = fMonListPush( Tm2 -> first, Tm ); 

1879 DL = Tv2 -> 1ft; 

1880 DR = Tv2 -> rt; 
1881 

1882 // Find intersection of D and NMJff, G) 

1883 if( IType < 3 ) // Local division 

1884 { 

1885 // Find NM.I(f GBasis) 

1886 pos = fAlgListPosition( f, GBasis ); 

1887 FVars = fMonPairListNumbcr( pos, vars ); 

1888 fVarsL = fVars.lft; 

1889 fVarsR = fVars.rt; 
1890 

1891 NML = fMonOne(); 

1892 NMR = fMonOne(); 

1893 j = 1; 
1894 

1895 // Calculate the intersection 

1896 while( j <= (ULong) nOfGenerators ) 

1897 { 

1898 gen = ASCIIMon( j ); 

1899 

1900 // If gen appears in DL (nonmultiplicatives) but not in fVarsL (raultiplicatives) 

if ( ( fMonIsMultiplicative( gen, DL ) == 1 ) && ( fMonIsMultiplicative( gen, fVarsL ) == ) ) 

1902 NML = fMonTimes( NML, gen ); // gen appears in the left intersection 

1903 // If gen appears in DR (nonmultiplicatives) but not in fVarsR (multiplicatives) 

if ( ( fMonIsMultiplicative( gen, DR ) == 1 ) && ( fMonIsMultiplicative( gen, fVarsR ) == ) ) 

1905 NMR = fMonTimes( NMR, gen ); // gen appears in the right intersection 
1906 

1907 jH — h; // Get ready to look at the next variable 

1908 } 

1909 } 
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1910 

1911 else if ( IType >= 3 ) // Global division 

1912 { 

1913 // Find the multiplicative variables 

if( IType == 3 ) LMultVars( fAlgLeadMonom( f ), &cutofTL, &cutoffR ); 
1915 else if( IType == 4 ) RMultVars( fAlgLeadMonom( f ), &cutoffL, &cutoffR ); 

else EMultVars( fAlgLeadMonom( f ), &cutoffL, fccutoSR ); 

1917 NML = fMonOne(); 

1918 NMR = fMonOne(); 
1919 

1920 // Calculate the left intersection 

1921 for( j = cutoffR+l; j <= (ULong) nOf Generators; j++ ) 

1922 { 

1923 gen = ASCIIMon( j ); // Obtain a nonmultiplicative variable 

1924 // If it appears in DL it appears in the intersection 

1925 if( fMonIsMultiplicative( gen, DL ) == 1 ) 

1926 NML = fMonTimes( NML, gen ); 

1927 } 
1928 

1929 // Calculate the right intersection 

1930 for( j = 1; j < cutoflL; j++ ) 

1931 { 

1932 gen = ASCIIMon( j ); // Obtain a nonmultiplicative variable 

1933 // If it appears in DR it appears in the intersection 

1934 if( fMonIsMultiplicative( gen, DR ) == 1 ) 

1935 NMR = fMonTimes( NMR, gen ); 

1936 } 

1937 } 
1938 

1939 // Add the nonmultiplicative variables to Tv 

1940 Tv = fMonPairListPush( NML, NMR, Tv ); 
1941 

1942 // Advance the lists 

1943 Tp2 = Tp2 -> rest; 

1944 Tm2 = Tm2 -> rest; 

1945 Tv2 = Tv2 -> rest; 

1946 } 

1947 } 

1948 } 
1949 

1950 // Recalculate multiplicative variables 

1951 if( IType < 3 ) vars = OverlapDiv( GBasis ); 
1952 

1953 // While exist (g, u, (PL, PR)) \in T and x \in NMJ(g, GBasis)\P and, 

1954 // if Q \neq \emptyset, s.t. LM (prolongation) < LM(f) for all f in 

1955 // (f, v, (DL, DR)) \in Q do... 

1956 escape = 0; 

1957 while( escape == ) 

1958 { 

1959 // Construct a candidate set for (g, u, (PL, PR)), x 

if( pi > 3 ) printf("Finding u candidates u f or u (g >u u, u (PL , U PR) ) , u x. . An"); 

1961 

1962 // Initialise variables 
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1963 Tp2 = fAlgListCopy( Tp ); 

1964 Tm2 = fMonListCopy( Tm ); 

1965 Tv2 = fMonPairListCopy( Tv ); 

1966 candidatcPos = 0; 

1967 candidatePoly = fAlgZero(); 

1968 candidate Variable = fMonOne(); 
LorR = 0; 

1970 if( IType < 3 ) vars = OverlapDiv( GBasis ); 

1971 

1972 // For each (g, u, (PL, PR)) in T 

1973 i = 1; 

1974 while( Tp2 ) 

1975 { 

1976 // Extract information about the first entry in T 

1977 g = Tp2 -> first; 

1978 LMg = fAlgLeadMonom( g ); 

1979 PL = Tv2 -> 1ft; 

1980 PR = Tv2 -> rt; 
1981 

1982 // Advance the copy of T 

1983 Tp2 = Tp2 -> rest; 

1984 Tm2 = Tm2 -> rest: 

1985 Tv2 = Tv2 -> rest; 
1986 

1987 if( IType < 3 ) // Local division 

1988 { 

1989 pos = fAlgListPosition( g, GBasis ); 

1990 gVars = fMonPairListNumbcr( pos, vars ); 

1991 gVarsL = gVars.lft; 

1992 gVarsR = gVars.rt; 
1993 

1994 j = 1; 

1995 while( j <= (ULong) nOfGenerators ) // For each generator 

1996 { 

1997 gen = ASCIIMon( j ); 

1998 

1999 // LEFT PROLONGATIONS 

2000 

2001 // Look for nonmultiplicative variables not in PL (unprocessed) 

2002 if( ( fMonIsMultiplicative( gen, PL ) == ) && ( fMonIsMultiplicative( gen, gVarsL ) == ) ) 

2003 { 

2004 add = 1; // Candidate found 

2005 mult = fMonTimes( gen, fAlgLeadMonom( g ) ); // Construct x.g 
2006 

2007 // If Q is not empty 

2008 if( Qp ) 

2009 { 

2010 // Make sure that LM(x.g) < LM(f) for all f in (f, v, D) \in Q 

2011 Qp2 = fAlgListCopy( Qp ); // Make a copy of Q for processing 

2012 while( ( fAlgListLength( Qp2 ) > ) && ( add == 1 ) ) // For all f in (}, v, D) \in Q 

2013 { 

2014 // Extract a lead monomial 

2015 compare = fAlgLeadMonom( Qp2 — > first ); 
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2016 Qp2 = Qp2 -> rest; 

2017 

2018 // If LM(x.g) not less than LM(f) ignore this candidate 

2019 if( theOrdFun( mult, compare ) == (Bool) ) add = 0; 

2020 } 

2021 } 
2022 

2023 if( add ==!)// Candidate found for (g, u, (PL, PR)), x 

2024 { 

2025 if( candidatePos > ) // This is not the first candidate tried 

2026 // Returns 1 if mult < fAlgLeadMonomf candidatePoly ) 

2027 balance = theOrdFun( mult, fAlgLeadMonom( candidatePoly ) ); 
2028 

2029 // If we are restricting prolongations by degree 

2030 if( degRestrict == 1 ) 

2031 { 

2032 // If the degree bound is not exceeded and the candidate is valid 

2033 if( ( fMonLength( LMg ) + 1 < twod ) && ( ( balance == (Bool) 1 ) || ( candidatePos == ) ) ) 

2034 { 

2035 // Construct a candidate prolongation 

2036 testPoly = fAlgTimes( fAlgMonom( qOne(), gen ), g ); 

2037 // If we have not yet encountered this polynomial 

2038 if( fAlgListIsMember( testPoly, soFar ) == (Bool) ) 

2039 { 

2040 / / We have found a new candidate 

2041 candidatePos = i; 

2042 candidatePoly = testPoly; 

2043 candidate Variable = gen; 

2044 LorR = 0; // Left prolongation 

2045 } 

2046 } 

2047 } 

2048 // If we are not restricting prolongations by degree, proceed if 

2049 // the candidate is valid (if this is the first candidate 

2050 // encountered or LM(x.g) < LM (current candidate)) 

2051 else if( ( balance == (Bool) 1 ) | ( candidatePos == ) ) 

2052 { 

2053 // Construct a candidate prolongation 

2054 testPoly = fAlgTimes( fAlgMonom( qOne(), gen ), g ); 

2055 // If we have not yet encountered this polynomial 

2056 if( fAlgListIsMember( testPoly, soFar ) == (Bool) ) 

2057 { 

2058 / / We have found a new candidate 

2059 candidatePos = i; 

2060 candidatePoly = testPoly; 

2061 candidate Variable = gen; 

2062 LorR = 0; // Left prolongation 

2063 } 

2064 } 

2065 } 

2066 } 
2067 

2068 // RIGHT PROLONGATIONS 
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2069 

2070 // Look for nonmultiplicative variables not in PR (unprocessed) 

2071 if( ( fMonIsMultiplicative( gen, PR ) == ) && ( fMonIsMultiplicative( gen, gVarsR ) == ) ) 

2072 { 

2073 add = 1; // Candidate found 

2074 mult = fMonTimes( fAlgLeadMonom( g ), gen ); // Construct g.x 
2075 

2076 // If Q is not empty 

2077 if( Qp ) 

2078 { 

2079 // Make sure that LM(g.x) < LMff) for all f in (f, v, D) \in Q 

2080 Qp2 = fAlgListCopy( Qp ); // Make a copy of Q for processing 
2081 

2082 while( ( fAlgListLength( Qp2 ) > ) && ( add == 1 ) ) // For all f in (}, v, D) \in Q 

2083 { 

2084 // Extract a lead monomial 

2085 compare = fAlgLeadMonom( Qp2 — > first ); 

2086 Qp2 = Qp2 -> rest; 
2087 

2088 // If LM(g.x) not less than LM(f) ignore this candidate 

2089 if( theOrdFun( mult, compare ) == (Bool) ) add = 0; 

2090 } 

2091 } 
2092 

2093 if( add == 1 ) // Candidate found for (g, u, (PL, PR ) ), x 

2094 { 

2095 if( candidatePos > ) // This is not the first candidate tried 

2096 // Returns 1 if mult < fAlgLeadMonomf candidate? 'oly ) 

2097 balance = theOrdFun( mult, fAlgLeadMonom( candidatePoly ) ); 
2098 

2099 // If we are restricting prolongations by degree 

2100 if( degRestrict == 1 ) 

2101 { 

2102 //If ihe degree bound is not exceeded and the candidate is valid 

2103 if( ( fMonLength( LMg ) + 1 < twod ) && ( ( balance == (Bool) 1 ) || ( candidatePos == ) ) ) 

2104 { 

2105 // Construct a candidate prolongation 

2106 testPoly = fAlgTimcs( g, fAlgMonom( qOnc(), gen ) ); 
2107 

2108 // If we have not yet encountered this polynomial 

2109 if( fAlgListIsMember( testPoly, soFar ) == (Bool) ) 

2110 { 

2111 // We have found a new candidate 

2112 candidatePos = i; 

2113 candidatePoly = testPoly; 

2114 candidate Variable = gen; 

2115 LorR = 1; // Right prolongation 

2116 } 

2117 } 

2118 } 

2119 // If we are not restricting prolongations by degree, proceed if 

2120 // the candidate is valid (if this is the first candidate 

2121 // encountered or LM(g.x) < LM (current candidate)) 



APPENDIX B. SOURCE CODE 



332 



else if( ( balance == (Bool) 1 ) | ( candidatePos == ) ) 

2123 { 

2124 // Construct a candidate prolongation 

2125 testPoly = fAlgTimes( g, fAlgMonom( qOnc(), gen ) ); 

2126 // If we have not yet encountered this polynomial 

2127 if( fAlgListIsMember( testPoly, so-Far ) == (Bool) ) 

2128 { 

2129 // We have found a new candidate 

2130 candidatePos = i; 

2131 candidatcPoly = testPoly; 

2132 candidate Variable = gen; 

2133 LorR = 1; // Right prolongation 

2134 } 

2135 } 

2136 } 

2137 } 

2138 j++; // Move onto the next variable 

2139 } 

2140 } 

2141 else if( IType >= 3 ) // Global division 

2142 { 

2143 // Obtain the multiplicative variables for this polynomial 

2144 if( IType == 3 ) LMultVars( fAlgLeadMonom( g ), &cutofTL, &cutoffR ); 

2145 else if( IType == 4 ) RMultVars( fAlgLeadMonom( g ), &cutoffL, &cutoffR ); 

2146 else EMultVars( fAlgLeadMonom( g ), &cutofTL, &cutofTR ); 

2147 

2148 // LEFT PROLONGATIONS 

2149 

2150 // For each left nonmultiplicative variable 

2151 for( j = cutoffR+1; j <= (ULong) nOfGenerators; j++ ) 

2152 { 

2153 gen = ASCIIMon( j ); 

2154 

2155 if( fMonIsMultiplicative( gen, PL ) == ) // Not in P (unprocessed) 

2156 { 

2157 add = 1; // Candidate found 

2158 mult = fMonTimes( gen, fAlgLeadMonom( g ) ); // Construct x.g 
2159 

2160 // If Q is not empty 

2161 if( Qp ) 

2162 { 

2163 // Make sure that LM(x.g) < LM(f) for all f in (f, v, D) \in Q 

2164 Qp2 = fAlgListCopy( Qp ); // Make a copy of Q for processing 
2165 

2166 while( ( fAlgListLength( Qp2 ) > ) && ( add == 1 ) ) // For all f in (f v, D) \in Q 

2167 { 

2168 // Extract a lead monomial 

2169 compare = fAlgLeadMonom( Qp2 — > first ); 

2170 Qp2 = Qp2 -> rest; 
2171 

2172 // If LM(x.g) not less than LM(f) ignore this candidate 

2173 if( theOrdFun( mult, compare ) == (Bool) ) add = 0; 

2174 } 
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2175 } 
2176 

2177 if( add ==!)// Candidate found for (g, u, (PL, PR)), x 

2178 { 

2179 if( candidatcPos > ) // This is not the first candidate tried 

2180 // Returns 1 if mult < fAlgLeadMonom( candidate? 'oly ) 

2181 balance = theOrdFun( mult, fAlgLcadMonom( candidatoPoly ) ); 
2182 

2183 // If we are restricting prolongations by degree 

2184 if( degRestrict == 1 ) 

2185 { 

2186 //If the degree bound is not exceeded and the candidate is valid 

2187 if( ( fMonLength( LMg ) + 1 < twod ) && ( ( balance == (Bool) 1 ) || ( candidatePos == ) ) ) 

2188 { 

2189 // Construct a candidate prolongation 

2190 testPoly = fAlgTimcs( fAlgMonom( qOneQ, gen ), g ); 

2191 // If we have not yet encountered this polynomial 

2192 if( fAlgListIsMember( testPoly, soFar ) == (Bool) ) 

2193 { 

2194 // We have found a new candidate 

2195 candidatePos = i; 

2196 candidatcPoly = testPoly; 

2197 candidate Variable = gen; 

2198 LorR = 0; // Left prolongation 

2199 } 

2200 } 

2201 } 

2202 // If we are not restricting prolongations by degree, proceed if 

2203 // the candidate is valid (if this is the first candidate 

2204 // encountered or LM(x.g) < LM(current candidate)) 

2205 else if( ( balance == (Bool) 1 ) | ( candidatcPos == ) ) 

2206 { 

2207 // Construct a candidate prolongation 

2208 testPoly = fAlgTimes( fAlgMonom( qOnc(), gen ), g ); 

2209 // If we have not yet encountered this polynomial 

2210 if( fAlgListIsMember( testPoly, soFar ) == (Bool) ) 

2211 { 

2212 // We have found a new candidate 

2213 candidatePos = i; 

2214 candidatcPoly = testPoly; 

2215 candidate Variable = gen; 

2216 LorR = 0; // Left prolongation 

2217 } 

2218 } 

2219 } 

2220 } 

2221 } 
2222 

2223 // RIGHT PR OL ONGA TIONS 

2224 

2225 // For each right nonmultiplicative variable 

2226 for( j = 1; j < cutoffL; j++ ) 

2227 { 
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2228 gen = ASCIIMon( j ); 

2229 mult = fMonTimes( fAlgLeadMonom( g ), gen ); // Construct g.x 
2230 

2231 if( fMonIsMultiplicative( gen, PR ) == ) // Not in P (unprocessed) 

2232 { 

2233 add = 1; // Candidate found 
2234 

2235 // If Q is not empty 

2236 if( Qp ) 

2237 { 

2238 // Make sure that LM(g.x) < LMff) for all f in (f, v, D) \in Q 

2239 Qp2 = fAlgListCopy( Qp ); // Make a copy of Q for processing 
2240 

2241 while( ( fAlgListLength( Qp2 ) > ) && ( add == 1 ) ) // For all f in (f, v, D) \in Q 

2242 { 

2243 // Extract a lead monomial 

2244 compare = fAlgLeadMonom( Qp2 -> first ); 

2245 Qp2 = Qp2 -> rest; 
2246 

2247 // If LM(g.x) not less than LM(f) ignore this candidate 

2248 if( theOrdFun( mult, compare ) == (Bool) ) add = 0; 

2249 } 

2250 } 
2251 

2252 if( add == 1 ) // Candidate found for (g, u, (PL, PR ) ), x 

2253 { 

2254 if( candidatePos > ) // This is not the first candidate tried 

2255 // Returns 1 if mult < fAlgLeadMonomf candidate? 'oly ) 

2256 balance = theOrdFun( mult, fAlgLeadMonom( candidatePoly ) ); 
2257 

2258 // If we are restricting prolongations by degree 

2259 if( degRestrict == 1 ) 

2260 { 

2261 //If ihe degree bound is not exceeded and the candidate is valid 

2262 if( ( fMonLength( LMg ) + 1 < twod ) && ( ( balance == (Bool) 1 ) || ( candidatePos == ) ) ) 

2263 { 

2264 // Construct a candidate prolongation 

2265 testPoly = fAlgTimes( g, fAlgMonom( qOne(), gen ) ); 

2266 // If we have not yet encountered this polynomial 

2267 if( fAlgListIsMember( testPoly, soFar ) == (Bool) ) 

2268 { 

2269 // We have found a new candidate 

2270 candidatePos = i; 

2271 candidatePoly = testPoly; 

2272 candidate Variable = gen; 

2273 LorR = 1; // Right prolongation 

2274 } 

2275 } 

2276 } 

2277 / / If we are not restricting prolongations by degree, proceed if 

2278 // the candidate is valid (if this is the first candidate 

2279 // encountered or LM(g.x) < LM(current candidate)) 

2280 else if( ( balance == (Bool) 1 ) | ( candidatePos == ) ) 
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2281 { 

2282 // Construct a candidate prolongation 

2283 testPoly = fAlgTimes( g, fAlgMonom( qOne(), gen ) ); 

2284 // If we have not yet encountered this polynomial 

2285 if( fAlgListIsMember( testPoly, soFar ) == (Bool) ) 

2286 { 

2287 // We have found a new candidate 

2288 candidatePos = i; 

2289 candidatePoly = testPoly; 

2290 candidate Variable = gen; 

2291 LorR = 1; // Right prolongation 

2292 } 

2293 } 

2294 } 

2295 } 

2296 } 

2297 } 

2298 H — h; // Move onto the next polynomial 

2299 } 

if( pi > 3 ) printf(". . . Element u y,u u chosen u as u the u candidateu (0 u = u none u f ound) An", candidatePos ); 

2301 

2302 //If there is a candidate 

2303 if( candidatePos > ) 

2304 { 

2305 // Construct the candidate 

2306 g = fAlgListNumber( candidatePos, Tp ); 

2307 u = fMonListNumber( candidatePos, Tm ); 

2308 P = fMonPairListNumber( candidatePos, Tv ); 

2309 if( pi > 2 ) 

2310 { 

2311 if( LorR == ) 

2312 printf("Analysing u lef t u prolongation u (u(7.s) , u 7,s u ) . . .\n", 

2313 fAlgToStr( g ), fMonToStr( candidateVariable ) ); 

2314 else 

2315 printf("Analysing u right u prolongation u ( u ('/ s) , u "/,s u ) . . An", 

2316 fAlgToStr( g ), fMonToStr( candidateVariable ) ); 

2317 } 
2318 

2319 // Adjust T — Remove (g, u, P) from T and add (g, u, (enlarged P)) 

2320 Tp = fAlgListRemoveNumber( candidatePos, Tp ); 

2321 Tp = fAlgListPush( g, Tp ); 

2322 Tm = fMonListRemoveNumber( candidatePos, Tm ); 

2323 Tm = fMonListPush( u, Tm ); 

2324 Tv = fMonPairListRemoveNumber( candidatePos, Tv ); 

2325 

2326 if( LorR == ) // Left prolongation 

2327 P. lft = multiplicativeUnion( P. lft, candidateVariable ); 

2328 else // Right prolongation 

2329 P.rt = multiplicativeUnion( P.rt, candidateVariable ); 

2330 

2331 Tv = fMonPairListPush( P.lft, P.rt, Tv ); 

2332 

2333 // Construct the prolongation 
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2334 if( LorR == ) 

2335 gDotx = fAlgTimcs( fAlgMonom( qOne(), candidatcVariablc ), g ); 

2336 else 

2337 gDotx = fAlgTimes( g, fAlgMonom( qOnc(), candidateVariable ) ); 

2338 

2339 // If the criterion is false... 

2340 // iff NCcriterion( gDotx, u, Tp, Tm, GBasis, vars ) == ) 

2341 { 

2342 // ...then find the normal form of the prolongation w.r.t. GBasis 

2343 soFar = fAlgListPush( gDotx, soFar ); // Indicate we have encountered another polynomial 

2344 h = IPolyRcducc( gDotx, GBasis, vars ); // Involutively reduce gDotx w.r.t. GBasis 

2345 h = findGCD( h ); // Divide through by the CCD 

2346 if( pi > 2 ) printf(" . . . Reduced u prolongation u to u y.s . . An", fAlgToStr( h ) ); 

2347 nOfProlongations++; // Increment the number of prolongations processed 
2348 

2349 / / Check for trivial ideal 

2350 if( fAlgIsOne( h ) == (Bool) 1 ) return fAlgListSingle( fAlgOne() ); 

2351 

2352 if( fAlgIsZcro( h ) == (Bool) ) // If the prolongation did not reduce to 

2353 { 

2354 // Add h to GBasis and recalculate multiplicative variables if necessary 

2355 if( ITypc < 3 ) 

2356 { 

2357 pos = 1; 

2358 if( SType == 1 ) GBasis = fAlgListDcgRcvLcxPushPosition( h, GBasis, &pos ); // DegRevLex sort 

2359 else if( SType == 2 ) GBasis = f AlgList Append ( GBasis, fAlgListSingle( h ) ); // Just append 

2360 else GBasis = fAlgListNormalPush( h, GBasis ); // Sort by monomial ordering 
2361 

2362 vars = OverlapDiv( GBasis ); // Full recalculate 

2363 } 

2364 else GBasis = fAlgListAppend( GBasis, fAlgListSinglc( h ) ); // Just append onto end 
2365 

2366 if( pi > 1 ) priiitf("Added u °/.s u to u G u C/,u) . . .\n", fAlgToStr( h ), fAlgListLength( GBasis ) ); 

else if( pi == 1 ) priiitf("Added u a u polynomial u to u G uuuuuuu ('/,u) . . .\n", fAlgListLength( GBasis )); 

2368 

2369 LMh = fAlgLeadMonom( h ); 

2370 

2371 if( dcgRcstrict == 1 ) // If we are restricting prolongations by degree... 

2372 { 

2373 degTest = fMonLength( LMh ); 

2374 if( dcgTcst > d ) // ...and if the degree of the new polynomial exceeds the bound... 

2375 { 

2376 // ...adjust the bound accordingly 

2377 d = degTest; 

2378 if( pi > 2 ) printf("New u value u of u du=u'/.u\n", d ); 

2379 twod = 2*d; 

2380 } 

2381 } 
2382 

2383 // if LM(h) == LM (prolongation) 

2384 if( fMonEqual( fAlgLeadMonom( gDotx ), LMh ) == (Bool) 1 ) 

2385 { 

2386 // Add entry (h, u, (\emptyset, \emptyset)) to T 
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2387 Tp = fAlgListPush( h, Tp ); 

2388 Tm = fMonListPush( u, Tm ); 

2389 Tv = fMonPairListPush( fMonOne(), fMonOno(), Tv ); 

2390 } 

2391 else // Add entry to T and adjust lists 

2392 { 

2393 // Add entry to T 

2394 Tp = fAlgListPush( h, Tp ); 

2395 Tm = fMonListPush( LMh, Tm ); 

2396 Tv = fMonPairListPush( fMonOneQ, fMonOnc(), Tv ); 

2397 if( pi > 3 ) printf("ModifyinguTu(size u '/.u) . . An", fAlgListLength( Tp ) ); 

2398 

2399 / / Set up lists for next operation 

2400 Tp2 = fAlgListNul; 

2401 Tm2 = fMonListNul; 

2402 Tv2 = fMonPairListNul; 
2403 

2404 // For each (f, v, (DL, DR)) \in T 

2405 if( pi > 4 ) printf("Adjustlng u Multipllcative u Variables . . An"); 

2406 while( Tp ) 

2407 { 

2408 f = Tp — > first; // Extract a polynomial 

2409 LMf = fAlgLeadMonom( f ); 
2410 

2411 if( pi > 4 ) printf("Testing u C/.s,u'/.s)\n", fMonToStr( LMh ), !MonToStr( LMf ) ); 
2412 

2413 //IfLM(h) < LM(f) 

2414 if( theOrdFun( LMh, LMf ) == (Bool) 1 ) 

2415 { 

2416 // Add entry to Q 

2417 Qp = fAlgListPush( Tp -> first, Qp ); 

2418 Qm = fMonListPush( Tm -> first, Qm ); 

2419 Qv = fMonPairListPush( Tv -> 1ft, Tv -> rt, Qv ); 

2420 

2421 // Discard f from GBasis 

2422 GBasis = fAlgListFXRem( GBasis, f ); 

2423 if( pi > 1 ) printf("Discarded u '/.s u from u G u C/.u) . . An", fAlgToStr( f ), fAlgListLength( GBasis ) ); 

2424 else if( pi == 1 ) printf("Discarded u a u polynomial u f rom u G u ('/.u) . . An", fAlgListLcngth( GBasis ) ); 

2425 } 

2426 else 

2427 { 

2428 // Keep entry in T 

2429 Tp2 = fAlgListPush( Tp -> first, Tp2 ); 

2430 Tm2 = fMonListPush( Tm -> first, Tm2 ); 

2431 Tv2 = fMonPairListPush( Tv -> 1ft, Tv -> rt, Tv2 ); 

2432 } 

2433 // Advance the lists to the next entry 

2434 Tp = Tp -> rest; 

2435 Tm = Tm -> rest; 

2436 Tv = Tv -> rest; 

2437 } 
2438 

2439 / / Set up lists for next operation 
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2440 Tp = fAlgListNul; 

2111 Tm = fMonListNul; 

2442 Tv = fMonPairListNul; 

2443 

2444 // Recalculate multiplicative variables 

2445 if( IType < 3 ) vars = OverlapDiv( GBasis ); 
2446 

2447 // For each (f v, (DL, DR)) \in T 

2448 while( Tp2 ) 

2449 { 

2450 // Keep f and v as they are 

2451 f = Tp2 -> first; 

2452 Tp = fAlgListPush( f, Tp ); 

2453 Tm = fMonListPush( Tm2 -> first, Tm ); 

2454 DL = Tv2 -> 1ft; 

2455 DR = Tv2 -> rt; 
2456 

2457 // Find intersection of D and NMJ(f, GBasis) 

2458 if( IType < 3 ) // Local division 

2459 { 

2460 // Find NMJ(f, GBasis) 

2461 pos = fAlgListPosition( f, GBasis ); 

2462 fVars = fMonPairListNumber( pos, vars ); 

2463 fVarsL = fVars.lft; 

2464 FVarsR = fVars.rt; 
2465 

2466 NML = fMonOne(); 

2467 NMR = fMonOne(); 

2468 j = 1; 
2469 

2470 // Calculate the intersection 

2471 while( j <= (ULong) nOfGenerators ) 

2472 { 

2473 gen = ASCIIMon( j ); 

2474 

2475 // If gen appears in DL (nonmultiplicatives) but not in fVarsL (multiplicatives) 

2476 if ( ( fMonIsMultiplicative( gen, DL ) == 1 ) 

2477 && ( fMonIsMultiplicative( gen, fVarsL ) == ) ) 

2478 NML = fMonTimes( NML, gen ); // gen appears in the left intersection 

2479 // If gen appears in DR (nonmultiplicatives) but not in fVarsR (multiplicatives) 

2480 if ( ( fMonIsMultiplicative( gen, DR ) == 1 ) 

2481 && ( fMonIsMultiplicative( gen, fVarsR ) == ) ) 

2482 NMR = fMonTimes( NMR, gen ); // gen appears in the right intersection 
2483 

2484 j++; // Get ready to look at the next variable 

2485 } 

2486 } 

2487 else if ( IType >= 3 ) // Global division 

2488 { 

2489 // Find the multiplicative variables 

2490 if( IType == 3 ) LMultVars( fAlgLeadMonom( f ), &cutofTL, &cutoffR ); 

2491 else if( IType == 4 ) RMultVars( fAlgLeadMonom( f ), &cutoffL, &cutoffR ); 

2492 else EMultVars( fAlgLeadMonom( f ), fecutoffL, &cutoffR ); 
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2493 NML = fMonOne(); 

2494 NMR = fMonOne(); 

2495 

2496 // Calculate the left intersection 

2497 for( j = cutoffR+1; j <= (ULong) nOfGenerators; j++ ) 

2498 { 

2499 gen = ASCIIMon( j ); // Obtain a nonmultiplicative variable 

2500 // If it appears in DL it appears in the intersection 

2501 if( fMonIsMultiplicative( gen, DL ) == 1 ) 

2502 NML = fMonTimes( NML, gen ); 

2503 } 
2504 

2505 // Calculate the right intersection 

2506 for( j = 1; j < cutoffL; j++ ) 

2507 { 

2508 gen = ASCIIMon( j ); // Obtain a nonmultiplicative variable 

2509 // If it appears in DR it appears in the intersection 

2510 if( fMonIsMultiplicative( gen, DR ) == 1 ) 

2511 NMR = fMonTimes( NMR, gen ); 

2512 } 

2513 } 
2514 

2515 // Add the nonmultiplicative variables to Tv 

2516 Tv = fMonPairListPush( NML, NMR, Tv ); 
2517 

2518 // Advance the lists 

2519 Tp2 = Tp2 -> rest; 

2520 Tm2 = Tm2 -> rest; 

2521 Tv2 = Tv2 -> rest; 

2522 } 

2523 } 

2524 } 

2525 } 

2526 // else if( pi > 2 ) printf(" ... Criterion used to discard prolongation... \n"); 

2527 } 

2528 else // exit from loop — no suitable prolongations found 

2529 { 

2530 escape = 1; 

2531 } 

2532 } 

2533 } 

2534 while( Qp ); 
2535 

2536 if( pi > ) printf(". . . Involutive u Basis u Computed . \n"); 

2537 

2538 return GBasis; 



2539 } 
2540 

2541 /* 

2542 * ======= 

2543 * End of File 

2544 * ======= 

2545 */ 
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B.2.12 involutive.c 

1 /* 

2 * File: involutive.c (Noncommutative Involutive Basis Program) 

3 * Author: Gareth Evans 

4 * Last Modified: 10th August 2005 

5 */ 
6 

7 // Include MSSRC Libraries 

8 # include <fralg.h> 

9 

10 // Include * Junctions Libraries 

L] # include "f ile_f unctions .h" 

12 # include "list_functions .h" 

13 # include "fralg_f unctions .h" 

14 # include "arithmetic_functions .h" 

15 # include "ncinv_f unctions .h" 
16 

17 /* 

18 * ======================================== 

19 * External Variables for ncinv Junctions, c 

20 * ======================================== 

21 */ 
22 

23 ULong nOfProlongations; // Stores the number of prolongations calculated 

24 int degRestrict = 0, // Determines whether of not prolongations are restricted by degree 

25 IType = 3, // Stores the involutive division used (1,2 = Left/Right Overlap, 3,4, = Left/Right, 5 = Empty) 

26 EType = 0, // Stores the type of Overlap Division 

27 SType = 1, // Determines how the basis is sorted 

28 MType = 1; // Determines method of involutive division 
29 

30 /* 

31 * ============================================================== 

32 * External Variables for fralg Junctions . c AND ncinv Junctions . c 

33 * ============================================================== 

34 */ 
35 

36 ULong nRed = 0; // Stores how many reductions have been carried out 

37 int nOf Generators, // Holds the number of generators 

38 pi = 1; // Holds the "Print Level" 
39 

40 /* 

41 * ====================================== 

42 * Global Variables for ncinv Junctions. c 

43 * ====================================== 

44 */ 
45 

46 FMonList gens = fMonListNul; // Stores the generators for the basis 

47 FMonPairList multVars = fMonPairListNul; // Stores multiplicative variables 
18 FAlgList F = fAlgListNul, // Holds the input basis 

49 G = fAlgListNul, // Holds the Groebner Basis 

50 G_Rcduced = fAlgListNul, // Holds the Reduced Groebner Basis 

51 IB = fAlgListNul, // Holds the Involutive Basis 
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52 IMPChecker = f AlgListNul; // Stores a list of polynomials for the IMP 

■ r )>! FMon allVars; // Stores all the variables 

54 int AlgType = 1, // Stores which involutive algorithm to use 

55 order .switch = 1; // Stores the monomial ordering used 
56 

57 /* 

58 * Remark: Here are the possible values of orderswitch: 

59 * 1: DegRevLex 

60 * 2: DegLex 

61 * 3: Lex 

62 * 9: Wreath Product 

63 */ 
64 

65 /* 

66 * Function Name: NormalBatch 

67 * 

68 * Overview: Calculates an Involutive Basis and a 

69 * Reduced Minimal Groebner Basis 

70 * 

71 * Detail: Given an input basis, this function uses the 

72 * functions in fralg_functions.c and ncinv_functions.c 

73 * to calculate an Involutive Basis and a minimal 

74 * reduced Groebner Basis for the input basis. 

75 * 

76 * External Variables Used: int pi; 

77 * Global Variables Used: FAlgList F, G, G-Reduced; 

78 * 

79 */ 

80 static void 

81 NormalBatch( ) 

82 { 

83 FAlgList Display = fAlgListNul; 

84 int plSwap = pi; 

85 

86 // Output some initial information to screen 

87 if( pi > ) 

88 { 

89 printf("\nPolynomials u in u the u lnput u basis : \n"); 

90 Display = fAlgListCopy( F ); 

91 while( Display ) 

92 { 

93 // If pi == 1, display the polynomial using the original generators 
if( pi == 1 ) printf("'/,s,\n", postProccss( Display — > first, gens ) ); 

95 // Otherwise, if pi > 1, display the polynomial using ASCII generators 
else if( pi > 1 ) printf('7.s,\n", fAlgToStr( Display -> first ) ); 

97 Display = Display — > rest; // Advance the list 

98 } 

99 printf("['/.u u Polynomials]\n", fAlgListLength( F ) ); 
100 } 

101 

102 // Calculate an Involutive Basis for F 

103 if( AlgType == 1 ) G = Gerdt( F ); 

104 else G = Seiler( F ); 
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105 

106 // Display calculated basis 

107 if( pi > ) 

108 { 

109 if( pi > 1 ) printf( "Number u of u Prolongations u Considered u = u '/,u\n" , nOfProlongations ); 

110 if( IType < 3 ) // Local division 

111 { 

printf("\nHere u ls u the u Involutive u Basis\n( (Lef t , u Right ) u Multiplicative u Variables u in u Brackets) : \n"); 

113 IB = fAlgListCopy( G ); 

114 Display = fAlgListCopy( G ); 

115 

116 // We will now calculate the multiplicative variables silently 

117 pi = 0; // Set silent print level 

118 if( ITypc < 3 ) multVars = OverlapDiv( G ); 

119 pi = plSwap; // Restore original print level 
120 

121 while( Display ) 

122 { 

123 // If pi == 1, display the polynomial using the original generators 

124 if( pi == 1 ) printf("'/,s, u (y,s, u y,s) ,\n", postProcess( Display — > first, gens ), 

125 postProcess( fAlgMonom( qOnc(), fMonReverse( multVars — > 1ft ) ), gens ), 

126 postProcess( fAlgMonom( qOnc(), fMonReverse( multVars — > rt ) ), gens ) ); 

127 // Otherwise, if pi > 1, display the polynomial using ASCII generators 

128 else if( pi > 1 ) printf("%s , u ('/.s , u '/.s) fAlgToStr( Display -> first ), 

129 fMonToStr( fMonReverse( multVars -> 1ft ) ), 

130 fMonToStr( fMonReverse( multVars -> rt ) ) ); 

131 Display = Display — > rest; // Advance the polynomial list 

132 multVars = multVars — > rest; // Advance the multiplicative variables list 

133 } 

134 printf(" [•/,u u Polynomials]\n", fAlgListLcngth( G ) ); 

135 } 

136 else // Global division 

137 { 

printf("\nHere u ls u the u Involutive u Basls\n( (Lef t , u Right ) u Multiplicative u Variables u in u Brackets) : \n"); 

139 IB = fAlgListCopy( G ); 

140 Display = fAlgListCopy( G ); 
1 11 while( Display ) 

142 { 

143 if( IType == 3 ) // Left Division 

144 { 

145 // If pi == 1, display the polynomial using the original generators 

if( pi == 1 ) printf(""/,s, u ("/,s, u l) ,\n", postProcess( Display — > first, gens ), fMonToStr( allVars ) ); 

147 // Otherwise, if pi > 1, display the polynomial using ASCII generators 

148 else if( pi > 1 ) printf('7,s , u (all , u none) , \n", fAlgToStr( Display -> first ) ); 

149 } 

150 else if( IType == 4 ) // Right Division 

151 { 

152 // If pi == 1, display the polynomial using the original generators 

if( pi == 1 ) printf( l "/,s,u(l.u"/iS) An", postProcess( Display — > first, gens ), fMonToStr( allVars ) ); 

154 // Otherwise, if pi > 1, display the polynomial using ASCII generators 

155 else if( pi > 1 ) printf('7,s, u (none, u all) ,\n", fAlgToStr( Display -> first ) ); 

156 } 

157 else if( IType == 5 ) // Empty Division 
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158 { 

159 // If pi == 1, display the polynomial using the original generators 

160 if( pi == 1 ) printf("'/,s, u (l, u l) ,\n", postProcess( Display — > first, gens ) ); 

161 // Otherwise, if pi > 1, display the polynomial using ASCII generators 

162 else if( pi > 1 ) printf("7,s >u (none, u none) ,\ri", fAlgToStr( Display — > first ) ); 

163 } 

164 Display = Display — > rest; // Advance the list 

165 } 

166 printf(" [7,u u Polynomials] \n" . fAlgListLcngth( G ) ); 

167 } 

168 } 
169 

170 // Calculate a reduced and minimal Groebner Basis 

171 if( pi > ) printf("\nComputing u the u Reduced u Groebner u Basis . . An"); 

172 G = minimalGB( G ); // Minimise the basis 

173 G_Rcduced = reducedGB( G ); // Reduce the basis 

174 if( pi > ) printf(". . . Reduced u Groebner u Basis u Computed . \n"); 
175 

176 // Display some information on screen 

177 if( pi > ) 

178 { 

179 printf("\nHere u is u the u Reduced u Groebner u Basis : \n"); 

180 Display = fAlgListCopy( G-Reduced ); 

181 while( Display ) 

182 { 

183 // If pi == 1, display the polynomial using the original generators 

184 if( pi == 1 ) printf("'/,s,\n", postProcess( Display — > first, gens ) ); 

185 // Otherwise, if pi > 1, display the polynomial using ASCII generators 

186 else if( pi > 1 ) prmtf('7.s ,\n", fAlgToStr( Display -> first ) ); 

187 Display = Display — > rest; 

188 } 

189 printf("['/.u u Polynomials]\n", fAlgListLength( G_Reduced ) ); 

190 } 



191 } 
192 

193 /* 

194 * Function Name: IMPSolver 

195 * 

196 * Overview: Solves the Ideal Membership Problem for polynomials 

197 * sourced from disk or from user input 

198 * 

199 * Detail: Given a polynomial sourced from disk or from user 

200 * input, this function solves the ideal membership problem 

201 * for that polynomial by reducing the polynomial w.r.t. 

202 * a minimal reduced Groebner Basis (using a specially 

203 * adapted function) and testing to see whether the 

204 * polynomial reduces to zero or not. 

205 * 

206 * External Variables Used: FAlgList IMPChecker; 

207 * FMonList gens; 

208 * int pi; 

209 */ 

210 static void 
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211 IMPSolver( ) 

212 { 

213 FAlgList polynomials = fAlgListNul; 

214 FAlg polynomial; 

215 int sink; 

216 Short dk = 2; // Convention: 1 = disk, 2 = keyboard 

217 Bool answer; 

218 String inputChar = strNewQ, inputStr = strNewQ, 

219 polyFiloName = strNew(), outputString = strNew(); 

220 FILE *polyFile; 

221 

222 // Determine whether the input will come from disk or from the keyboard 

223 printf("*** u IDEAL u MEMBERSHIP u PROBLEM u SOLVER u ***\n\n"); 

224 printf( "Source : u Disk u (d) u or u Keyboard u (k) ? u . . . "); 

225 sink = scanf( '"/,s", inputChar ); 

226 

227 // If the user hasn't entered 'd' or 'k', ask for another letter 

228 while( ( strEqual( inputChar, "d" ) == ) & ( strEqual( inputChar, "k" ) == ) ) 

229 { 

230 printf(" Error : u Please u enter u d u or u k u . . . "); 

231 sink = scanf( '"/,s", inputChar ); 

232 } 

233 printf("\n"); 

234 

235 // If the polynomials are to be obtained from disk 

236 if( strEqual( inputChar, "d" ) == (Bool) 1 ) 

237 { 

238 dk = 1; // Set input from disk 

239 printf("Please u enter u the u f ile u name u ofuthe u iiiputupolyriomials u . . . "); 

240 sink = scanf( '"/,s", polyFileName ); 

241 

242 // Read file from disk 

243 if( ( polyFilc = fopen( polyFileName, "r" ) ) == NULL ) 

244 { 

245 printf("'/,s\n", "Error u opening u the u polynomial u input u f ile . "); 

246 cxit( EXIT.FAILURE ); 

247 } 
248 

249 // Obtain the polynomials from the file 

250 polynomials = fAlgListFromFile( polyFilc ); 

251 polynomials = preProcess( polynomials, gens ); // Change to ASCII order 

252 sink = fclose( polyFile ); 

253 } 

254 else // Else obtain the first polynomial from the keyboard 

255 { 

256 if( pi < 2 ) // Require polynomial using original generators 

257 printf("Please u enter u a u polynomial u (e.g. u x*y~2-z) \n"); 

258 else // Require polynomial using ASCII generators 

259 printf("Please u enter u aupolynoiiiialu(e.g.uAAA*AAB"2-AAC)\n"); 

260 printf(" (A u semicolon u terminates u the u program) ..."); 

261 sink = scanf( '"/,s", inputStr ); 
262 

263 if( ( strEqual( inputStr, "" ) == (Bool) 1 ) | ( strEqual( inputStr, ";" ) == (Bool) 1 ) ) 
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264 polynomials = fAlgListNul; // No poly given, terminate program 

265 else 

266 { 

267 // Push the given polynomial onto the list 

268 polynomials = fAlgListPush( parsoStrToFAlg( inputStr ), polynomials ); 

269 if( pi < 2 ) // Need to convert to ASCII order 

polynomials = preProcess( polynomials, gens ); 

271 } 

272 } 
273 

274 // For each polynomial in the list (for keyboard entry the list will have 1 element) 

275 while( polynomials ) 

276 { 

polynomial = polynomials — > first; // Extract a polynomial to test 
polynomials = polynomials — > rest; // Advance the list 

279 

280 // Solve the Ideal Membership Problem for the polynomial 

281 // using the Groebner Basis stored in IMPChecker 

282 answer = idealMembershipProblcm( polynomial, IMPChecker ); 

283 

284 // Prepare to report the result correctly 

285 if( pi < 2 ) outputString = postProcess( polynomial, gens ); 

286 else outputString = fAlgToStr( polynomial ); 

287 

288 // Return the results 

289 if( answer == (Bool) ) 

printf("Polynomlal u '/,s u is u NOT u a u member u of u the u ideal . \n" , outputString ); 
291 else 

printf("Polynomlal u '/,s u IS u a u member u of u the u ideal . \n", outputString ); 

293 

294 if( dk == 2 ) // Obtain another poly from keyboard 

295 { 

296 if( pi < 2 ) // Require polynomial using original generators 

printf("Please u enter u a u polynomial u (e.g. u x*y~2-z) \n"); 
else / / Require polynomial using ASCII generators 

299 printf( "Please u enter u aupolynomial u (e.g. U AAA*AAB~2-AAC) \n"); 

300 printf(" (A u semicolon u terminates u the u program) ..."); 

301 sink = scanf( "°/,s", inputStr ); 
302 

303 if( ( strEqual( inputStr, "" ) == (Bool) 1 ) | ( strEqual( inputStr, ";" ) == (Bool) 1 ) ) 

304 polynomials = fAlgListNul; // No poly given, terminate program 

305 else 

306 { 

307 // Push the given polynomial onto the list 

polynomials = fAlgListPush( parseStrToFAlg( inputStr ), polynomials ); 

309 if( pi < 2 ) // Need to convert to ASCII order 

310 polynomials = preProcess( polynomials, gens ); 

311 } 

312 } 

313 } 



314 } 
315 

316 /* 
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317 * Function Name: main 

318 * 

319 * Overview: A Noncommutative Involutive Basis Program 

320 * 

321 * Detail: This function deals with the inputs and outputs 

322 * of the program. In particular, the command line arguments are 

323 * processed, the input files are read, and once the Involutive 

324 * Basis has been calculated, it is output to disk together with 

325 * the reduced minimal Groebner Basis. 

326 * 

327 * External Variables Used: int nOfGenerators, pi; 

328 * Global Variables Used: FAlgList F; 

329 * FMonList gens; 

330 * int orderswitch; 

331 */ 

332 int 

333 main( argc, argv ) 

334 int argc; 

335 char *argv[]; 

336 { 



337 String filename = strNew(), // Used to create the output file name 

338 filenamc2 = strNewQ; // Used to create the involutive output file name 

339 FAlg zeroOrOne; // Used to test for trivial basis elements 

340 FMonList gcns_copy = fMonListNul; // Holds a copy of the generators 

341 ULong k; // Used as a counter 

342 int i, // Used as a counter 

343 length; // Used to store the length of a command line argument 

344 Short alpha_switch = 0, // Do we optimise the generator order lexicographically? 

345 fractions = 0, // Do we eliminate fractions from the input basis? 

346 IMP = 0, // At the end of the algorithm, do we solve the IMP? 

347 p; // Used to navigate through the command line arguments 

348 FILE *grobdata, // Stores the input file 

349 *outputdata; // Used to construct the output file 
350 

351 // Process Command Line Arguments 

352 if( argc < 2 ) 

353 { 

354 printf("\nInvaliduInputu _ uwrongunumber u of uparameters . "); 

355 printf("\nSee u README u f or u more u inf ormation . \n\n"); 

356 exit( EXIT.FAILURE ); 

357 } 

358 

359 p = 1; // p will step through all the command line arguments 

360 while( argv[p][0] == ) // While there is another command line argument 

361 { 

362 length = (int) strlen( argv[p] ); // Determine length of argument 

if( pi > 8 ) printf("Looking u at u parameter u '/,i u of u length u '/,i\ii", p, length ); 

364 

365 if( length == 1 ) // Just a "—" was given 

366 { 

printf("\nInvalid u Input u - u empty u parameter u (position u '/.i) ■ ", p); 

368 printf("\nSee u README u f or u more u inf ormation . \n\n"); 

369 cxit( EXIT.FAILURE ); 



APPENDIX B. SOURCE CODE 



347 



370 


} 




371 






372 


// We will now deal with the different allowable parameters 




373 


switch( argv[p][l] ) 




374 


{ 




375 


case 'a': 




376 


alpha_switch = 1; // Optimise the generator order lexicographically 




377 


break; 




378 


case 'c': // Choose the algorithm used to construct the involutive basis 




379 


if( length != 3 ) 




380 


{ 




381 


printf("\nlnvalid u lnput u - uiiicorrectuleiigthu0iiucode u parameter . ' 


); 


382 


priiitf("\nSee u README u f or u more u inf ormation . \n\n" ); 




383 


cxit( EXIT.FAILURE ); 




384 


} 




385 


switch( argv[p][2] ) // Choose the algorithm type 




380 


{ 




387 


case ' 1 ' : 




388 


case '2' : 




389 


AlgTypc = ( (int) argv[p][2] ) - 48; 




390 


break; 




391 


default: 




392 


printf("\nInvalid u Parameter u (y,c u is u an u invalid u code u selection 


u character) . ", ar 


393 


printf("\nSee u README u f or u more u inf ormation . \n\n"); 




394 


exit( EXIT.FAILURE ); 




395 


break; 




396 


} 




397 


break; 




398 


case ' d': 




399 


order_switch = 2; // Use the DegLex Monomial Ordering 




400 


break; 




401 


case 'e': // Choose the Overlap Division type 




402 


if( length != 3 ) 




403 


{ 




101 


printf("\nInvalid u Inputu - uincorrect u leiigthuOiiutype u of u 0verlap L 


Division u pararaet 


405 


printf("\nSee u README u f or u more u inf ormation . \n\n" ); 




406 


exit( EXIT.FAILURE ); 




107 


} 




108 


switch( argv[p][2] ) // Assign the type 




409 


{ 




410 


case ' 1 ' : 




111 


case '2' : 




412 


case '3' : 




113 


case '4' : 




414 


case '5' : 




415 


EType = ( (int) argv[p][2] ) - 48; 




416 


break; 




417 


default: 




418 


printf("\nInvalid u Parameter u (y,c u is u anuinvalid u -e u character ) . 


", argv[p][2]); 


119 


printf ( " \nSee u README u f or u mor e u inf ormat ion . \n\n " ) ; 




420 


cxit( EXIT.FAILURE ); 




121 


break; 




122 


} 
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423 break; 

424 case '£': 

425 fractions = 1; // Eliminate fractions from the input basis 

426 break; 

427 case >1>: 

428 order_switch = 3; // Use the Lexicographic Monomial Ordering 

429 break; 

430 case 'm': // Choose method of involutive division 

431 if( length != 3 ) 

432 { 

433 printf("\nInvalid u Input u - u incorrect u leiigth u oii u method u parameter . "); 

434 printf("\nSee u README u f or u more u inf ormation . \n\n"); 

435 cxit( EXIT.FAILURE ); 

436 } 

437 switch( argv[p][2] ) // Choose the method 

438 { 

439 case '1' : 

440 case '2' : 

111 MTypc = ( (int) argv[p][2] ) - 48; 

442 break; 

443 default: 

printf("\nInvalid u Parameter u (y,c u is u an u invalid u method u character) . ", argv[p] [2]); 

445 printf("\nSee u README u for u more u inf ormation . \n\n"); 

446 cxit( EXIT.FAILURE ); 

447 break; 

448 } 

449 break; 

450 case 'o': // Choose how the basis is stored 

451 if( length != 3 ) 

452 { 

453 printf("\nInvalid u Input u - u incorrect u leiigthuOiiuSortuparameter . "); 

454 printf("\nSee u README u f or u more u inf ormation . \n\n"); 

455 cxit( EXIT.FAILURE ); 

456 } 

457 switch( argv[p][2] ) // Choose the sorting method 

458 { 

459 case ' 1 1 : 

460 case '2' : 

461 case '3' : 

462 SType = ( (int) argv[p][2] ) - 48; 

463 break; 

464 default: 

printf("\nInvalid u Parameter u ('/,c u is u an u invalid u sort u character) . ", argv[p][2]); 

466 printf("\nSee u README u for u more u inf ormation . \n\n" ); 

467 exit( EXIT.SUCCESS ); 

468 break; 

469 } 

470 break; 

471 case 'p': // Calls the Interactive Ideal Membership Problem 

472 IMP = 1; // Solver after the Groebner Basis has been found. 

473 break; 

474 case 'r': // Use the DegRevLex Monomial Ordering 

475 break; // (we do nothing here — this is default option) 
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476 case 's': // Choose an involutive division 

477 if( length != 3 ) 

478 { 

479 printf ( " \nlnvalid u lnput u - u incorrect u length u on u select ion u parameter . "); 

480 printf ("\nSee u README u f or u more u inf ormat ion . \n\n"); 

481 oxit( EXIT.SUCCESS ); 

482 } 

483 switch( argv[p][2] ) // Assign the involutive division type 

484 { 

485 case ' 1 ' : 

486 case '2' : 

487 case '3' : 

488 case '4' : 

489 case '5' : 

490 IType = ( (int) argv[p][2] ) - 48; 

491 break; 

492 default: 

printf("\nInvalid u Parameter u (7,c u ls u an u invalid u involutive u division u character ) . " , argv[p] [2]); 

494 printf("\nSee u README u for u more u inf ormat ion . \n\n" ); 

495 cxit( EXIT.FAILURE ); 

496 break; 

497 } 

498 break; 

499 case 'v': // Choose the amount of information given to screen 

500 if( length != 3 ) 

501 { 

502 printf ( " \nlnvalid u lnput u - u incorrect u length u on u verbose u parameter . " ) ; 

503 printf("\nSee u README u i orumoreuinf ormation . \n\n" ); 

504 exit( EXIT.FAILURE ); 

505 } 

506 switch( argv[p][2] ) 

507 { 

508 case '0' : 

509 case '1' : 

510 case '2' : 

511 case '3' : 

512 case '4' : 

513 case '5' : 

514 case '6' : 

515 case '7' : 

516 case '8' : 

517 case '9' : 

518 pi = ( (int) argv[p][2] ) - 48; 

519 break; 

520 default: 

521 printf("\nInvalid u Parameters u (7,c u is u an u invalid u verbose u character) . ", argv[p][2]); 

522 printf("\nSee u README u for u more u inf ormation . \n\n" ); 

523 exit( EXIT.FAILURE ); 

524 break; 

525 } 

526 break; 

527 case >w>: 

528 order_switch = 9; // Use the Wreath Product Monomial Ordering 
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529 break; 

530 case ' x ' : 

531 dcgRestrict = 1; // Turns on restriction of prolongations by degree 

532 break; 

533 default: 

printf("\nInvalid u Parameter u ('/,c u is u aii u invaliduCharacter) . ", argv[p][l]); 

535 printf("\nSee u README u f or u more u inf ormation . \n\n" ); 

536 cxit( EXITJAILURE ); 

537 break; 

538 } 

539 pH — h; // Get ready to look at the next parameter 

540 } 
541 

542 p = p— 1; // p now holds the number of parameters processed 
543 

544 // Test overloading of switches 

545 if( filcnamcLcngth ( argv[l+p] ) > 59 ) 

546 { 

547 printf("\nError : u The u input u f i lename u niust u not \n " ) ; 

548 printf("exceed u 59 u characters . u Exiting . . .\n\n"); 

549 exit( EXIT.SUCCESS ); 

550 } 
551 

552 if( ( EType > ) && ( IType >= 3 ) ) 

553 { 

554 printf("\nError : u The u -e (n) u option u niustube u useduwith\ii" ); 

555 printf("elther u the u -sl u or u -s2 u options . u Exiting. . .\n\n"); 

556 exit( EXIT.SUCCESS ); 

557 } 
558 

559 if( ( EType == 2 ) && ( MTypc == 1 ) ) 

560 { 

561 printf("\n*** uuu Warning : u The u Selected u Overlap u Division u Type u is u not u a uuuu ***\n"); 

printf("*** u stronguinvolutive u division u wheiiuUsed u with u theu _ niluOption . u ***\n"); 

563 } 
564 

565 // Open file specified on the command line 

566 if( ( grobdata = fopen ( argv[l+p], "r" ) ) == NULL ) 

567 { 

568 printf("Error u opening u the u input u f ile . \n"); 

569 exit( EXIT.FAILURE ); 

570 } 
571 

572 /* 

573 * The first line of the input file should contain the 

574 * generators in the format a; b; c; ... 

575 * (representing a > b > c > ...). We will now read the 

576 * generators from file and calculate the number of 

577 * generators obtained. 

578 */ 

579 gens = fMonListFromFile( grobdata ); 

580 

581 /* 
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582 * As the rest of the program assumes a generator order 

583 * a < b < c < ... (for ASCII comparison), we now reverse 

584 * the list of generators. 

585 */ 

586 gens = £MonListFXRev( gens ); 

587 

588 k = fMonListLength( gens ); 

589 if( k >= (ULong) INT.MAX ) // Check limit 

590 { 

591 printf("Error : u INT_MAX u Exceeded u ( in u main) \n" ); 

592 exit( EXIT_FAILURE ); 

593 } 

594 else nOfGenerators = (int) k; 

595 

596 // Check generator bound 

597 if( nOfGenerators > 17576 ) 

598 { 

599 printf( "Error : u The u number u of u generators u must u not u exceed u 17576\n"); 

600 exit( EXIT_FAILURE ); 

601 } 

602 

603 if( IType >= 3 ) // Global division 

601 { 

605 // Create a monomial storing all the generators in order 

606 gens_copy = fMonListCopy( gens ); 

607 allVars = fMonOne(); 

608 while ( gcns_copy ) 

609 { 

610 allVars = fMonTimes( allVars, gens_copy — > first ); 

611 gens_copy = gens_copy — > rest; 

612 } 

613 allVars = fMonReverse( allVars ); 

614 } 

615 

616 // Welcome 

617 if( pi > ) 

618 { 

if( IType < 3 ) printf("\n*** u N0NC0MMUTATIVE u INVQLUTIVEuBASISuPR0GRAM u (L0CALuDIVISI0N)u***u\n"); 

620 else printf("\n***uN0NCQMMUTATIVE u INV0LUTIVE u BASIS u PR0GRAMu(GL0BAL u DIVISIDN) u *** u \n"); 

621 } 
622 

623 // We will now choose the monomial ordering to be used. 

624 switch( ordcr_switch ) 

625 { 

626 case 1: 

627 thcOrdFun = fMonDegRevLex; 

628 if( pi > ) printf("\nUsing u the u DegRevLex u Ordering u with u "); 

629 break; 

630 case 2: 

631 thcOrdFun = fMonTLex; 

632 if( pi > ) printf("\nUsing u the u DegLex u Ordering u with u "); 

633 break; 

634 case 3: 
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635 thcOrdFun = fMonLex; 

636 if( pi > ) printf( "\nUsing u the u Lex u Drdering u with u " ); 

637 break; 

638 case 9: 

639 theOrdPun = fMonWreathProd; 

if( pi > ) printf("\nUsing u the u Wreath u Product u Ordering u with u "); 

641 break; 

642 default: 

643 break; 

644 } 
645 

646 // Output the generator order to screen... 

647 if( pi > ) 

648 { 

649 fMonListDisplayOrder( gens ); 

650 printf("\n"); 

651 } 
652 

653 // Now read the polynomials from disk 

654 F = fAlgListFromFile( grobdata ); 

655 

656 // If necessary, optimise the generator order 

657 if( alpha_switch == 1 ) gens = alphabetOptimise( gens. F ); 

658 

659 /* 

660 * Now substitute original generators for ASCII generators in all 

661 * basis polynomials . This is done because all the monomial 

662 * orderings use ASCII string comparisons for efficiency. 

663 * For example, if the original monomial ordering is x > y > z 

664 * and a polynomial x*y—2*z is in the basis, then the polynomial 

665 * we get after substituting for the ASCII order (AAC > AAB > AAA) is 

666 * AAC*AAB-2*AAA. 

667 */ 

668 G = preProcess( F, gens ); // Note: placed in G for processing 

669 F = fAlgListNul; 
670 

671 // If we are asked to remove all fractions from the input basis, do so now. 

672 if( fractions == 1 ) G = fAlgListRemoveFractions( G ); 
673 

674 // Test the list for special cases (trivial ideals) 

675 while( G ) 

676 { 

677 zeroOrOne = G — > first; // Extract a polynomial 

if( fAlgIsZero( zeroOrOne ) == (Bool) ) // If the polynomial is not equal to 0... 

679 F = fAlgListPush( zeroOrOne, F ); // ...add to the input list 

680 // Now divide by the leading coefficient to get a unit coefficient 
zeroOrOne = fAlgScaDiv( zeroOrOne, fAlgLeadCoef( zeroOrOne ) ); 

682 if( fAlgIsOnc( zeroOrOne ) == (Bool) 1 ) // If the polynomial is equal to 1... 

683 { 

684 // ... we have a trivial ideal 

685 F = fAlgListSingle( fAlgOnc() ); 

686 break; 

687 } 
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688 G = G — > rest; // Advance the list 

689 } 

690 F = fAlgListFXRev( F ); // Reverse the list (it was constructed in reverse) 
691 

692 G = fAlgListNul; // Reset for later use 
693 

694 // Calculate the number of polynomials in the input basis 

695 k = fAlgListLength( F ); 

696 if( k >= (ULong) INT.MAX ) // Check limit 

697 { 

698 printf("Error : u INT_MAX u Exceeded u ( in u main) \n" ); 

699 exit( EXIT.FAILURE ); 

700 } 
701 

702 // Calculate an Involutive Basis for F followed by a 

703 // reduced and minimal Groebner Basis for F 

704 NormalBatch(); 
705 

706 // Write Reduced Groebner Basis to Disk 

707 if( pi > ) printf("\nWriting u Reduced u Groebner u Basis u to u Disk. . . u ")> 

708 

709 // Choose the correct suffix for the filename (argv[l+p] is the original filename) 

710 switch( ordcr_switch ) 

711 { 

712 case 1: 

713 filename = appcndDotDcgRevLex ( argv[l+p] ); 

714 break; 

715 case 2: 

716 filename = appcndDotDcgLcx ( argv[l+p] ); 

717 break; 

718 case 3: 

719 filename = appendDotLex( argv[l+p] ); 

720 break; 

721 case 9: 

722 filename = appendDotWP( argv[l+p] ); 

723 break; 

724 default: 

725 printf( " \nERR0R u DURING u SUFFIX u SELECTI0N\ii\n" ) ; 

726 cxit( EXIT.FAILURE ); 

727 break; 

728 } 

729 filename2 = strConcat( filename, ".inv" ); 

730 

731 // Now open the output file 

732 if( ( outputdata = fopen ( filename, "w" ) ) == NULL ) 

733 { 

printf ( "°/,s\n " , "Error u opening u / u creat ing u the u (first ) u output u f ile . " ) ; 

735 exit( EXIT JAILURE ); 

736 } 
737 

738 // Write the (reversed) generator order to disk 

739 fMonListToFile( outputdata, fMonListRev( gens ) ); 
740 
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741 // Write Polynomials to disk 

742 G = fAlgListNul; 

743 

744 // If we are required to solve the Ideal Membership Problem, 

745 / / let us make a copy of the output basis now 

746 if( IMP == 1 ) IMPChecker = fAlgListCopy( G-Reduced ); 
747 

748 // We will now convert all polynomials in the basis 

749 // from ASCII order back to the user's order, writing 

750 // the converted polynomials to file as we go. 

751 while( G-Reduced ) 

752 { 

fprintf( outputdata, '"/,s;\n", postProcessParse( G_Reduced — > first, gens ) ); 

754 G_Reduced = G_Reduced — > rest; 

755 } 
756 

757 // Close off the output file 

758 i = fclose( outputdata ); 

759 

760 if( pi > ) printf("Done . \nWritlng u Involutive u Basis u to u Disk . . .u")> 

761 

762 // Now write the Involutive Basis to disk 

763 if( ( outputdata = fopen ( filename2, "w" ) ) == NULL ) 

764 { 

765 printf("°/,s\n", "Error u opening u / u creating u the u (second) u output u f ile . "); 

766 exit( EXIT.FAILURE ); 

767 } 

768 

769 // Write the (reversed) generator order to disk 

770 fMonListToFile( outputdata, fMonListRev( gens ) ); 
771 

772 // If we are using a local division we need to find the multiplicative variables now 

773 if( IType < 3 ) multVars = OverlapDiv( IB ); 
774 

775 while( IB ) 

776 { 

fprintf( outputdata, '"/,s; u ", postProcessParse( IB — > first, gens ) ); 

778 if( IType < 3 ) // Overlap— based Division 

779 { 

780 fprintf( outputdata, " C/,s , u '/.s) ; \n" , 

781 postProcess( fAlgMonom( qOne(), fMonReverse( multVars — > 1ft ) ), gens ), 
postProcess( fAlgMonom( qOne(), fMonReverse( multVars — > rt ) ), gens ) ); 

783 } 

784 else if( IType == 3 ) // Left Division 

785 { 

786 fprintf( outputdata, " C/,s , u l) ; \n", fMonToStr( allVars ) ); 

787 } 

788 else if( IType == 4 ) // Right Division 

789 { 

790 fprintf( outputdata, " (1 , u/.s) ; \n", fMonToStr( allVars ) ); 

791 } 

792 else if( IType == 5 ) // Empty Division 

793 { 
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794 fprintf( outputdata, "(l, u l);\n" ); 

795 } 
796 

IB = IB — > rest; // Advance the list of rules 
798 //If need be, advance the multiplicative variables list 
if( ITypc < 3 ) multVars = multVars -> rest; 

800 } 
801 

802 / / Close off the output file 

803 i = fclose( outputdata ); 
804 

805 if( pi > ) printf("Done.\n\n"); 

806 

807 //If the Ideal Membership Problem Solver is required, run it now. 

808 if( IMP == 1 ) IMPSolver(); 
809 

810 return EXIT_SUCCESS; // Exit successfully 

811 } 
812 

813 # include "file_f unctions . c" 

814 # include "list_functlons . c" 

815 # include "fralg_f unctions . c" 

816 # include "arlthmetic_functions . c" 

817 # include "nclnv_f unctions . c" 
818 

819 // End of File 
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In this Appendix, we provide sample sessions showing how the program given in Appendix 
B can be used to compute noncommutative Involutive Bases with respect to different 
involutive divisions and monomial orderings. 

C.l Sample Sessions 

C.l.l Session 1: Locally Involutive Bases 

Task: If F := {x 2 y 2 — 2xy 2 + x 2 , x 2 y — 2xy} generates an ideal J over the polynomial ring 
Q(x, y) , compute a Locally Involutive Basis for F with respect to the strong left overlap 
division S; thick divisors; and the DegLex monomial ordering. 

Origin of Example: Example 5.7.1. 

Input File: 

x; y; 

x~2*y~2 - 2*x*y~2 + x~2; 
x~2*y — 2*x*y; 



Plan: Apply the program given in Appendix B to the above file, using the ! -c2' option 
to select Algorithm 12; the '-d' option to select the DegLex monomial ordering; the 
'-m2' option to select thick divisors; and the -e2' and '-si' options to select the strong 
left overlap division. 
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ma6:mssrc— aux/thesis> time involutive — c2 — d — e2 — m2 —si thesisl.in 

*** NONCOMMUTATIVE INVOLUTIVE BASIS PROGRAM (LOCAL DIVISION) *** 

Using the DegLex Ordering with x > y 

Polynomials in the input basis: 
x~2 y"2 - 2 x y"2 + x"2, 
x-2 y - 2xy, 
[2 Polynomials] 

Computing an Involutive Basis... 
Added Polynomial #3 to Basis... 
Added Polynomial #4 to Basis... 
Autoreduction reduced the basis to size 3... 
Added Polynomial #4 to Basis... 
Autoreduction reduced the basis to size 3... 
Added Polynomial #4 to Basis... 
Added Polynomial #5 to Basis... 
...Involutive Basis Computed. 

Here is the Involutive Basis 

((Left, Right) Multiplicative Variables in Brackets): 

x y"2 x, (x y, 1), 

x y*2, (x y, y), 

x y x, (x y, 1), 

x y, (x y, 1), 

x~2, (x y, 1), 

[5 Polynomials] 

Computing the Reduced Grocbner Basis... 
...Reduced Groebner Basis Computed. 

Here is the Reduced Groebner Basis: 

x y, 

x"2, 

[2 Polynomials] 

Writing Reduced Groebner Basis to Disk... Done. 
Writing Involutive Basis to Disk... Done. 

O.OOOu 0.007s 0:00.15 0.0% 0+0k 0+2io 16pf+0w 
ma6:mssrc— aux/thesis> 



Output File: 



x; y; 

x*y"2*x; (x y, 1); 
x*y"2; (x y, y); 
x*y*x; (x y, 1); 
x*y; (x y, 1); 
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C.1.2 Session 2: Involutive Complete Rewrite Systems 

Task: If F := {a; 3 — 1, y 2 — 1, (xy) 2 — 1, Xx — 1, xX — 1, Yy — 1, yY — 1} generates 
an ideal J over the polynomial ring Q(Y, X, y, x), compute an Involutive Basis for F with 
respect to the left division < and the DegLex monomial ordering. 

Origin of Example: Example 5.7.3 (F corresponds to a monoid rewrite system for the 
group S 3 ] we want to compute an involutive complete rewrite system for S3). 

Input File: 

Y; X; y; x; 
x~3 - 1; 
y~2 - 1; 
(x*y)-2 - 1; 
X*x - 1; 
x*X - 1; 
Y*y - 1; 
y*Y - 1; 



Plan: Apply the program given in Appendix B to the above file, using the '-c2' option 
to select Algorithm 12 and the -d' option to select the DegLex monomial ordering (the 
left division is selected by default). 

Program Output: 

ma6:mssrc— aux/thesis> time involutive — c2 — d thesis2.in 

*** NONCOMMUTATIVE INVOLUTIVE BASIS PROGRAM (GLOBAL DIVISION) *** 

Using the DegLex Ordering with Y > X > y > x 

Polynomials in the input basis: 
x~3 - 1, 
y"2 - 1, 

x y x y - !. 
x x - 1, 
x x - 1, 

Yy - 1, 
y Y- 1, 
[7 Polynomials] 

Computing an Involutive Basis... 
Added Polynomial #8 to Basis... 
Added Polynomial #9 to Basis... 
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Added Polynomial #10 to Basis... 

Added Polynomial #11 to Basis... 

Added Polynomial #12 to Basis... 

Added Polynomial #13 to Basis... 

Autoreduction reduced the basis to size 11... 

Added Polynomial #12 to Basis... 

Added Polynomial #13 to Basis... 

Added Polynomial #14 to Basis... 

Added Polynomial #15 to Basis... 

Added Polynomial #16 to Basis... 

Added Polynomial #17 to Basis... 

Added Polynomial #18 to Basis... 

Added Polynomial #19 to Basis... 

Added Polynomial #20 to Basis... 

Added Polynomial #21 to Basis... 

Added Polynomial #22 to Basis... 

Added Polynomial #23 to Basis... 

Autoreduction reduced the basis to size 19... 

Added Polynomial #20 to Basis... 

Autoreduction reduced the basis to size 19... 



Added 


Polynomial 


#20 


to 


Basis. 


Added 


Polynomial 


#21 


to 


Basis. 


Added 


Polynomial 


#22 


to 


Basis. 


Added 


Polynomial 


#23 


to 


Basis. 


Added 


Polynomial 


#24 


to 


Basis. 


Added 


Polynomial 


#25 


to 


Basis. 


Added 


Polynomial 


#26 


to 


Basis. 


Added 


Polynomial 


#27 


to 


Basis. 


Added 


Polynomial 


#28 


to 


Basis. 


Added 


Polynomial 


#29 


to 


Basis. 


Added 


Polynomial 


#30 


to 


Basis. 


Added 


Polynomial 


#31 


to 


Basis. 


Added 


Polynomial 


#32 


to 


Basis. 


Added 


Polynomial 


#33 


to 


Basis. 


Added 


Polynomial 


#34 


to 


Basis. 


Added 


Polynomial 


#35 


to 


Basis. 


Added 


Polynomial 


#36 


to 


Basis. 


Added 


Polynomial 


#37 


to 


Basis. 


Added 


Polynomial 


#38 


to 


Basis. 


Added 


Polynomial 


#39 


to 


Basis. 


Added 


Polynomial 


#40 


to 


Basis. 



Autoreduction reduced the basis to size 29... 
Added Polynomial #30 to Basis... 
Autoreduction reduced the basis to size 19... 
...Involutivc Basis Computed. 

Here is the Involutive Basis 

((Left, Right) Multiplicative Variables in Brackets): 

y~2 - 1, (YXyx, 1), 

X x - 1, (Y X y x, 1), 

x X - 1, (Y X y x, 1), 

Yy- 1, (YXyx, 1), 

y~2x-x, (YXyx, 1), 
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Y-y, (YXyx, 1), 
Yx - y x, (YXy x, 1), 
Xxy-y, (YXyx, 1), 
Y y x - x, (Y X y x, 1), 
x~2 - X, (Y X y x, 1), 
X~2 - x, (Y X y x, 1), 
x y x - y, (Y X y x, 1), 
Xy - y x, (YXy x, 1), 
Xyx-xy, (YXyx, 1), 
x"2 y - y x, (YXyx, 1), 
y X - xy, (YXy x, 1), 
yxy-X, (YXyx, 1), 
Yxy-X, (YXyx, 1), 
YX-xy, (YXyx, 1), 
[19 Polynomials] 

Computing the Reduced Grocbner Basis... 
...Reduced Groebner Basis Computed. 

Here is the Reduced Groebner Basis: 

y"2 - l, 

X x - 1, 

x X - 1, 

Y-y, 

x"2 - X, 

X"2 - x, 

x y x - y, 

X y - y x, 

y X - x y, 

yxy-X, 

[10 Polynomials] 

Writing Reduced Groebner Basis to Disk... Done. 
Writing Involutivc Basis to Disk... Done. 

0.105u 0.000s 0:00.16 62.5% 197+727k 0+2io Opf+Ow 
ma6:mssrc— aux/thesis> 



Output File: 



Y; X; y; x; 

y~2 - 1; (YXyx, 1); 
X*x - 1; (Y X y x, 1); 
x*X - 1; (Y X y x, 1); 
Y*y - 1; (YXyx, 1); 
y~2*x - x; (Y X y x, 1); 
Y - y; (YXy x, 1); 
Y*x — y*x; (YXyx, 1) 
X*x*y - y; (Y X y x, 1) 
Y*y*x - x; (Y X y x, 1) 
x~2 - X; (Y X y x, 1); 
X"2 - x; (Y X y x, 1); 
x*y*x — y; (Y X y x, 1); 
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X*y — y*x; (Y X y x, 1); 
X*y*x — x*y; (Y X y x, 1); 
x'2*y — y*x; (Y X y x, 1); 
y*X — x*y; (Y X y x, 1); 
y*x*y - X; (Y X y x, 1); 
Y*x*y - X; (Y X y x, 1); 
Y*X - x*y; (Y X y x, 1); 



C.1.3 Session 3: Noncommutative Involutive Walks 

Task: If G' := {y 2 + 2xy, y 2 + x 2 , 5y 3 , 5xy 2 , y 2 + 2yx} generates an ideal J over 
the polynomial ring Q(x,y), compute an Involutive Basis for G' with respect to the left 
division < and the DegRevLex monomial ordering. 

Origin of Example: Example 6.2.20 (G' corresponds to a set of initials in the non- 
commutative Involutive Walk algorithm; we want to compute an Involutive Basis H' for 
G'). 

Input File: 

x; y; 

y"2 + 2*x*y; 
y'2 + x~2; 
5*y"3; 
5*x*y"2; 
y"2 + 2*y*x; 



Plan: Apply the program given in Appendix B to the above file, using the ! -c2' option to 
select Algorithm 12 (the DegRevLex monomial ordering and the left division are selected 
by default). 

Program Output: 

ma6:mssrc— aux/thesis> time involutive — c2 thesis3.in 

*** NONCOMMUTATIVE INVOLUTIVE BASIS PROGRAM (GLOBAL DIVISION) *** 

Using the DegRevLex Ordering with x > y 

Polynomials in the input basis: 
y~2 + 2 xy, 
y"2 + x"2, 

5y*3, 

5 x y~2, 
y~2 + 2 y x, 
[5 Polynomials] 
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Computing an Involutive Basis... 
...Involutive Basis Computed. 

Here is the Involutive Basis 

((Left, Right) Multiplicative Variables in Brackets): 

2 y x - x"2, (x y, 1), 

yx-2, (x y, 1), 

x~3, (xy, 1), 

2 xy - x-2, (x y, 1), 

y~2 + x-2, (x y, 1), 

[5 Polynomials] 

Computing the Reduced Grocbner Basis... 
...Reduced Groebner Basis Computed. 

Here is the Reduced Groebner Basis: 

2 y x - x-2, 

x"3, 

2 x y - x"2, 

y"2 + x*2, 

[4 Polynomials] 

Writing Reduced Groebner Basis to Disk... Done. 
Writing Involutive Basis to Disk... Done. 

0.005u 0.000s 0:00.07 0.0% 0+0k 0+2io Opf+Ow 
ma6:mssrc— aux/thesis> 



More Verbose Program Output: (we select the '-v3' option to obtain more informa- 
tion about the autoreduction that occurs at the start of the algorithm). 

ma6:mssrc— aux/thcsis> time involutive — c2 — v3 thesis3.in 

*** NONCOMMUTATIVE INVOLUTIVE BASIS PROGRAM (GLOBAL DIVISION) *** 

Using the DegRevLex Ordering with x (AAB) > y (AAA) 

Polynomials in the input basis: 

AAA'2 + 2 AAB AAA, 

AAA~2 + AAB~2, 

5 AAA'3, 

5 AAB AAA~2, 

AAA~2 + 2 AAA AAB, 

[5 Polynomials] 

Computing an Involutive Basis... 
Autoreducing... 

Looking at element p = AAA "2 + 2 AAA AAB of basis 
Reduced p to AAB AAA - AAA AAB 
Looking at element p = 5 AAB AAA" 2 of basis 
Reduced p to AAB AAA AAB 
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Looking at element p = AAB AAA - AAA AAB of basis 
Reduced p to AAB AAA - AAA AAB 
Looking at element p = 5 AAA" 3 of basis 
Reduced p to AAA" 2 AAB 

Looking at element p = AAB AAA AAB of basis 
Reduced p to AAB AAA AAB 

Looking at element p = AAB AAA - AAA AAB of basis 

Reduced p to AAB AAA - AAA AAB 

Looking at element p = AAA"2 + AAB "2 of basis 

Reduced p to 2 AAA AAB - AAB "2 

Looking at element p = AAA"2 AAB of basis 

Reduced p to AAA AAB "2 

Looking at element p = 2 AAA AAB — AAB "2 of basis 
Reduced p to 2 AAA AAB - AAB "2 
Looking at element p = AAB AAA AAB of basis 
Reduced p to AAB "3 

Looking at element p = AAA AAB "2 of basis 
Reduced p to AAA AAB "2 

Looking at element p = 2 AAA AAB — AAB "2 of basis 

Reduced p to 2 AAA AAB - AAB "2 

Looking at element p = AAB AAA - AAA AAB of basis 

Reduced p to 2 AAB AAA - AAB "2 

Looking at element p = AAB "3 of basis 

Reduced p to AAB" 3 

Looking at element p = AAA AAB "2 of basis 
Reduced p to AAA AAB "2 

Looking at element p = 2 AAA AAB — AAB "2 of basis 
Reduced p to 2 AAA AAB - AAB "2 
Looking at element p = AAA "2 + 2 AAB AAA of basis 
Reduced p to AAA "2 + AAB "2 

Looking at element p = 2 AAB AAA — AAB "2 of basis 
Reduced p to 2 AAB AAA - AAB "2 
Looking at element p = AAB "3 of basis 
Reduced p to AAB "3 

Looking at clement p = AAA AAB "2 of basis 
Reduced p to AAA AAB "2 

Looking at element p = 2 AAA AAB — AAB "2 of basis 
Reduced p to 2 AAA AAB - AAB "2 
Analysing AAA AAB... 

Adding Right Prolongation by variable #0 to S... 
Adding Right Prolongation by variable #1 to S... 
Analysing AAA AAB "2... 

Adding Right Prolongation by variable #0 to S... 
Adding Right Prolongation by variable #1 to S... 
Analysing AAB"3... 

Adding Right Prolongation by variable #0 to S... 
Adding Right Prolongation by variable #1 to S... 
Analysing AAB AAA... 

Adding Right Prolongation by variable #0 to S... 
Adding Right Prolongation by variable #1 to S... 
Analysing AAA "2... 

Adding Right Prolongation by variable #0 to S... 
Adding Right Prolongation by variable #1 to S... 
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...Involutivc Basis Computed. 

Number of Prolongations Considered = 

Here is the Involutivc Basis 

((Left, Right) Multiplicative Variables in Brackets): 

2 AAA AAB - AAB "2, (all, none), 

AAA AAB"2, (all, none), 

AAB"3, (all, none), 

2 AAB AAA - AAB "2, (all, none), 

AAA"2 + AAB"2, (all, none), 

[5 Polynomials] 

Computing the Reduced Groebner Basis... 

Looking at element p = 2 AAA AAB — AAB "2 of basis 
Reduced p to 2 AAA AAB - AAB "2 

Looking at element p = AAB "3 of basis 
Reduced p to AAB '3 

Looking at element p = 2 AAB AAA - AAB "2 of basis 
Reduced p to 2 AAB AAA - AAB "2 

Looking at element p = AAA"2 + AAB "2 of basis 
Reduced p to AAA "2 + AAB "2 
Number of Reductions Carried out = 34 
...Reduced Groebner Basis Computed. 

Here is the Reduced Groebner Basis: 

2 AAA AAB - AAB"2, 

AAB"3, 

2 AAB AAA - AAB "2, 
AAA"2 + AAB"2, 
[4 Polynomials] 

Writing Reduced Groebner Basis to Disk... Done. 
Writing Involutivc Basis to Disk... Done. 

O.OOOu 0.005s 0:00.04 0.0% 0+0k 0+2io Opf+Ow 
ma6:mssrc— aux/thesis> 



Output File: 



x; y; 

2*y*x — x~2; (x y, 1); 
y*x"2; (x y, 1); 
x~3; (xy, 1); 
2*x*y — x~2; (x y, 1); 
y'2 + x~2; (x y, 1); 
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C.1.4 Session 4: Ideal Membership 

Task: If F := {x + y + z — 3, x 2 + y 2 + z 2 — 9, x 3 + y 3 + z 3 — 24} generates an ideal 
J over the polynomial ring Q(x, y, z), are the polynomials x + y + z — 3; x + y + 2 — 2; 
xz 2 + yz 2 — 1; zyx + 1 and x 10 members of J? 

Input File: 

x; y; z; 

x + y + z — 3; 

x~2 + y~2 + z~2 - 9; 

x~3 + y"3 + z"3 - 24; 



Plan: To solve the ideal membership problem for the five given polynomials, we first 
need to obtain a Grobner or Involutive Basis for F. We shall do this by applying the 
program given in Appendix B to compute an Involutive Basis for F with respect to 
the DegLex monomial ordering and the right division > (this requires the ! -d' and '-s4' 
options respectively). Once the Involutive Basis has been computed (which then allows 
the program to compute the unique reduced Grobner Basis G for F), we can start an 
ideal membership problem solver (courtesy of the ! -p' option) which allows us to type in 
a polynomial p and find out whether or not p is a member of J (the program reduces p 
with respect to G, testing to see whether or not a zero remainder is obtained). 

Program Output: 

ma6:mssrc— aux/thesis> involutive — c2 — d — p — s4 thesis4.in 

*** NONCOMMUTATIVE INVOLUTIVE BASIS PROGRAM (GLOBAL DIVISION) *** 

Using the DegLex Ordering with x > y > z 

Polynomials in the input basis: 

x + y + z — 3, 

x~2 + y~2 + z~2 - 9, 

x"3 + y"3 + z"3 - 24, 

[3 Polynomials] 

Computing an Involutive Basis... 
Added Polynomial #4 to Basis... 
Added Polynomial #5 to Basis... 
Added Polynomial #6 to Basis... 
Added Polynomial #7 to Basis... 
Added Polynomial #8 to Basis... 
Added Polynomial #9 to Basis... 
Added Polynomial #10 to Basis... 
Added Polynomial #11 to Basis... 
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Added Polynomial #12 to Basis... 

Added Polynomial #13 to Basis... 

Added Polynomial #14 to Basis... 

Added Polynomial #15 to Basis... 

Added Polynomial #16 to Basis... 

Added Polynomial #17 to Basis... 

Added Polynomial #18 to Basis... 

Added Polynomial #19 to Basis... 

Added Polynomial #20 to Basis... 

Added Polynomial #21 to Basis... 

Autoreduction reduced the basis to size 13... 

...Involutive Basis Computed. 



Here is the Involutive Basis 

((Left, Right) Multiplicative Variables in Brackets): 

x + y + z - 3, (1, x y z), 

z x + z y + z"2 — 3 z, (1, x y z), 

y z - z y, (1, x y z), 

z"3 - 3 z"2 + 1, (1, x y z), 

z"2 y~2 - y - z, (1, x y z), 

z~2 y x + z, (1, x y z), 

z"2 y z - 3 z"2 y + y, (1, x y z), 

z y z - z"2 y, (1, x y z), 

3 y x + 1, (1, x y z), 

z y"2 + z"2 y — 3 z y — 1, (1, x y z), 

z"2 x + z"2 y — 1, (1, x y z), 

y x — z"2 + 3 z, (1, x y z), 

y~2 + z y + z"2 — 3 y — 3 z, (1, x y z), 

[13 Polynomials] 

Computing the Reduced Groebner Basis... 
...Reduced Groebner Basis Computed. 

Here is the Reduced Groebner Basis: 
x + y + z - 3, 

y z - z y- 

z"3 - 3 z"2 + 1, 

y~2 + z y + z~2 — 3 y — 3 z, 

[4 Polynomials] 

Writing Reduced Groebner Basis to Disk... Done. 
Writing Involutive Basis to Disk... Done. 

*** IDEAL MEMBERSHIP PROBLEM SOLVER *** 



Source: Disk (d) or Keyboard (k)? ...k 

Please enter a polynomial (e.g. x*y"2— z) 

(A semicolon terminates the program). ..x+y+z— 3 

Polynomial x + y + z — 3 IS a member of the ideal. 

Please enter a polynomial (e.g. x*y"2— z) 

(A semicolon terminates the program)... x+y+z— 2 

Polynomial y + 2 z — 2 is NOT a member of the ideal. 
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Please enter a polynomial (e.g. x*y"2— z) 

(A semicolon terminates the program). ..x*z~2+y*z"2— 1 

Polynomial xz"2 + yz"2 — llSa member of the ideal. 

Please enter a polynomial (e.g. x*y"2— z) 

(A semicolon terminates the program)... z*y*x+l 

Polynomial z y x + 1 IS a member of the ideal. 

Please enter a polynomial (e.g. x*y"2— z) 

(A semicolon terminates the program)... x~ 10 

Polynomial x~10 is NOT a member of the ideal. 

Please enter a polynomial (e.g. x*y"2— z) 

(A semicolon terminates the program)...; 

ma6:mssrc— aux/thesis> 



Output File: 



x; y; z; 

x + y + z - 3; (1, x y z); 

z*x + z*y + z"2 — 3*z; (1, x y z); 

y*z — z*y; (1, x y z); 

z~3 — 3*z~2 + 1; (1, x y z); 

z~2*y"2 — y — z; (1, x y z); 

z"2*y*x + z; (1, x y z); 

z'2*y*z — 3*z"2*y + y; (1, x y z); 

z*y*z — z*2*y; (1, x y z); 

z*y*x + 1; (1, x y z); 

z*y~2 + z~2*y — 3*z*y — 1; (1, x y z); 

z"2*x + z"2*y — 1; (1, x y z); 

y*x — z"2 + 3*z; (1, x y z); 

y'2 + z*y + z"2 — 3*y — 3*z; (1, x y z); 
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